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EDITORIAL 





Chers Amis, 


Permettez-moi de souhaiter la bienvenue aux membres de PPC Lausanne, qui 
ont décidé de recevoir JPC. Nos amis ont en effet choisi de partager notre 
Journal, tout en conservant leur personnalité. 


Cette coopération entre nos deux Clubs renforce ainsi JPC dans son objectif de 


liaison entre les utilisateurs. Sachez en profiter ! 


Autre nouvelle très importante : David Lin, le président de la firme Corvallis 
MicroTechnology, passera à Paris lors d’une de nos prochaines réunions (le 16 
avril ou le 7 mai) pour présenter ses produits, et en particulier le nouvel 
ordinateur MCII. Cette réunion sera donc exceptionnelle. Ne la manquez 
surtout pas ! 


Allez, en attendant, faites de beaux rêves. 


Pierre David (37) 
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DISPONIBILITE 
DU MODULE HEPAX 
POUR HP-41 


Heureux possesseurs de HP-41 : réjouissez-vous ! Le 
module Hepax de VM Electronics, annoncé dans 
JPC 50, est maintenant disponible. 


Vous pouvez désormais le commander directement à 
l'adresse suivante : 


VM Electronics 
Nyelandsve]j 7, 1. 
DK-2000, Frederiksberg 
Danemark 

Tél: Int. + 451 87 23 30 


Rappelons que ce module offre une mémoire 
supplémentaire à votre HP-41 dans laquelle vous 
pouvez non seulement sauvegarder tous vos 
programmes, mais également les exécuter sans avoir 
besoin de les recopier en mémoire principale ! En 
cela, cette mémoire est radicalement différente de la 
classique mémoire étendue. 32000 octets au 
maximum peuvent être ainsi rajoutés. 


Les commandes utilisées ont une syntaxe proche de 
celle des modules XFonctions. 


Vous disposerez également d’un éditeur de 
programmes en langage machine rapide et 
performant, ainsi que de tous tous les outils 
nécessaires pour la programmation en assembleur de 
la HP-41. 


Les prix des différents modules sont : 


- Advanced Hepax : DKK 2475 (2300 FF) 

- Standard Hepax : DKK 1800 (1700 FF) 

- Hepax Memory : DKK 1475 (1400 FF) 

- Hepax Double Memory : DKK 2050 (1900 FF) 

Les prix en Francs sont donnés à titre purement 
indicatif. 


Olivier Arbey (118) 
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COURRIER DES LECTEURS 


Alexandre Allien 
5 avenue Salvador Allende 
77200 Torcy 


Sos ! 


Quand j'ai reçu JPC 50, je me suis précipité sur 
l'article Lex sur HP-28C de Paul Courbis, d’un doigt 
allègre, j'ai tapé le programme. Horreur ! Les 
routines en langage machine ne se trouvent pas sur la 
version 1CC. 


Je pense que nous sommes beaucoup dans le même 
cas. Que devons-nous faire ? 


J'apprécie énormément notre journal, longue vie à 
lui ! 


Alexandre Allien (459) 


C’est une excellente question. La réponse se trouve 
dans JPC 47 (page 10). Wiodek Mier-Jedrzejowicz a 
donné une version de PEEK qui devrait fonctionner sur 
les versions 1CC. La suite, c’est à toi de la trouver, à 
l'instar de Paul Courbis... 


Philippe Aspero 
59 rue du Maréchal Foch 
68300 Village-Neuf 


Recherche : 


Des programmes de calcul en multi-précision pour 
HP-71 (calcul de /, x, -,+, 7, e, nl, y‘, sin x,.….). Tous 
les programmes sont bienvenus ! 


Serge Vaudenay 
8 résidence des Chênes 
94420 Le Plessis Trévise 














Recherche : 


Une méthode efficace pour trouver les racines d’un 
polynôme complexe, afin de programmer la fonction 


PROOT du HP-71 sur le HP-28. L’exposé 
mathématico-intuitif de HP sur la méthode employée 
(ici la méthode de Laguerre (???)) est 
incompréhensible... 


Pierre-Marie Vougier 
1 bis, rue du Gabon 
83200 Toulon 


Recherche : 


Des programmes d’inversion de matrice pour HP-41, 
et aimerait savoir jusqu’à quel degré on peut monter 
en utilisant toute la mémoire disponible. 


Des programmes de lissage de courbes sur des 
polynômes de degré élevé. 


Guillaume Le Stum 
12 impasse Houël 
76600 Le Havre 


Recherche : 


Comment utiliser la fonction TAYLR du HP-28 et 
obtenir des coefficients rationnels (c’est à dire que les 
fractions ne soient pas effectuées) ? 


Entre l'envoi de ce S.O.S. et le fabrication de ce JPC, 
Guillaume nous a envoyé la réponse. Nous vous la 
livrons donc : 


J'ai trouvé la réponse suite à une erreur de 
manipulation. Le problème était d’obtenir avec la 
commande TAYLR des développements limités avec des 
coefficients non effectués. Il suffit de multiplier 
l'expression à développer par une variable non encore 
définie. 


Par exemple, si A n’est pas présent dans le menu 
USER : 


'AXATANC(X)' [ENTER] 
'X' [ENTER] 
3 TAYLR 


donnera : ‘A*X-A*2/6*X"31, Il ne reste plus qu’à faire 
mentalement abstraction de À, et le tour est joué... 
Longue vie au Club ! 






COURRIER DU COEUR 


Sébastien Lalande 

12 rue de Seine 

78290 Croissy sur Seine 
Tél : (1) 39 76 27 41 


Fait : 


Pose de modules 4, 34 ou 64Ko pour HP-28C ; 
accélération HP-28C et connexion entre HP-28C et 
ordinateurs. : 


Jean-Jacques Moreau 
64 avenue de la Paix 
93150 Le Blanc-Mesnil 
Tél: (1) 48 67 33 04 


Vend: 
Lecteur de disquettes HP-9114A : 3000 F. 


Janick Taillandier 
335 rue Lecourbe 
75015 Paris 


Vend : 
Module 32 Ko Ram + 32 Ko Eprom HHP pour 
HP-71 : 1500 F. 


Alain Bochet 

108 rue de Lagny 

93100 Montreuil 

Tél : 42 87 96 89 (Dom) ou 42 07 75 36 p45 (Bur) 


Vend: 

Lecteur de cassettes HP-82161A + 4 cassettes + sac 
de transport HP (peut contenir le drive + 
alimentation + HP-41 ou HP-71), le tout en excellent 
état: 1500 F. 
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Philippe Guez 

56 rue J.J. Rousseau 

75001 Paris 

Tél : (1) 45 06 25 03 (Bureau) 


Vend : 


Imprimante ThinkJet HP-2225B : 3500 F, interface 
vidéo 32 colonnes HP-82163B : 500 F, lecteur de 
cartes magnétiques pour HP-71B : 1250 F, cartes 
magnétiques pour HP-71B : 1 F pièce, convertisseur 
HP-82166A : 1250 F, module HP-IL pour HP-41 : 
1250 F, modules Ram 4 Ko pour HP-71B : 500 F 
pièce, module Games, Auto-duplication, et Math 
pour HP-41 : 150 F pièce, machine à écrire Praxis 35 
interfaçable RS232 : 3000 F. 


Henri Kudelski 

Chemin de la Croix, 48 
1052 Le Mont sur Lausanne 
Suisse 


Vend : 
Deux HP-28C neuves : 1300 FF à débattre. 


Guillaume Le Stum 
12 impasse Houël 
76600 Le Havre 
Tél : 35 42 34 48 


Vend : 
HP-28C, état neuf, sous garantie encore 8 mois, 
1600 F. 


C. Becker 

27 avenue Verdi 
59110 La Madeleine 
Tél 21 71 50 07 


Vend : 

Pour HP-71 un module HP-IL HP-82401AF, une 
imprimante HP-2225B, un module éditeur de textes 
HP-82485AF et un lecteur de cartes magnétiques 
HP-82400A. Prix à débattre. 
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DERNIERE MINUTE ! 


La firme suédoise bien connue $g Dvünçgæn a réalisé 
un module extraordinaire pour HP-41 : il s’agit d’un 
émulateur combiné HP-28$S et HP-71. Surnommé 
49.5 Emulator Pac (NdiR : 49.5 est la moyenne de 28 
et 71...), il inclut un coprocesseur compatible avec le 
HP-71 (et le HP-28S par la même occasion), et 
contient les 64 Ko de Rom du HP-71 et les 128 Ko du 
HP-28$, plus une mémoire autonome de 32 Ko. 


Ce module comprend deux fonctions : 


- HP28 (qui permet d’entrer dans le mode d’émulation 
HP-28, donc d'accéder aux fonctions de calcul 
symbolique et de calcul matriciel ou complexe), 

- HP71 (qui permet de même d’accéder au Basic très 
complet du HP-71). 


Signalons de plus que ce co-processeur tourne 
environ quatre fois plus vite (4,71281 MHz) qu’un 
HP-71 ou un HP-28 de base. 


Ce module dispose enfin d’une sortie infra-rouge, et 
permet aux deux modes d’utiliser l'HP-IL du HP-41. 
Gageons que nous de ce 
fantastique module ! 


reparlerons bientôt 





HP28 


P. Courbis Mode Horloge sur HP-28S 6 
S. Lalande HP-28 GTI 6 


Que pensez o(setéel!) 
Vous de le O 
houvelle 
4-28 ? < 
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MODE HORLOGE SUR HP-28S 


Le programme pour simuler une horloge sur le 
HP-28C paru dans JPC 46 (Juillet-Août 1987) est 
maintenant utilisable sur le HP-28S (version 2BB). 


Il suffit pour cela de modifier l’adresse utilisée pour le 
SYSEVAL. Tapez #11CA SYSEVAL au lieu de #123E SYSEVAL. 


Paul Courbis (392) 


HP-28 GTI 


Comme vous avez déjà dû vous en rendre compte, le 
HP-28C possède trois défauts : le manque de 
mémoire (linsupportable No Room to ENTER doit 
commencer à vous agacer...), la lenteur et le manque 
de communication avec l'extérieur. Je vous propose 
d'apporter la solution à vos problèmes. 


GTI 


Le microprocesseur du HP-28, qui ressemble 
beaucoup à celui du HP-71, fonctionne sur une base 
de pulsations supérieures ou égales à 1 us. Le circuit 
oscillant qui génère ces pulsations est un circuit dont 
voici la partie qui nous intéresse : 


33nf 
É —N—> 


L 180 mH 
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La valeur des condensateurs est à l’origine de 33 pF. 
Si on remplace cette valeur par 10 pF, on s’approche 
au mieux de la limite sans aucun risque. Il suffit donc 
de remplacer les deux condensateurs C (figure 1) par 
deux autres de 10 pF. 


Résultat : 1,56 fois plus rapide (autant que le 
HP-28S). Pour voir la stupéfiante différence, faites 
lauto-test (LON] 1-1) ou tracez la fonction sinus : 


nor mal GTI 


MEMOIRE 


Après beaucoup de difficultés, j'ai réussi à déterminer 
les connexions de la Rom 1LP3 0016 (figure 1). Les 
H.D.S. du HP-71 m'ont fourni ceux de différents 
modules existants. Je vous propose le raccordement 
suivant qui vous permettra de mettre tous les modules 
que vous voudrez : 4, 32 ou 64 Ko. Ces connexions 
marchent parfaitement et les différents HP-28 que j'ai 
modifiés sont à faire pâlir d'envie la plupart des 
admirateurs du HP-28 normal. Plus jamais de No Room 
to ENTER ! Vous pouvez sauvegarder des pages écran, 
faire des animations ou des maxi-programmes en 
assembleur ! Assez ri, passons aux choses sérieuses : 





(a est non connecté, le 1 est à connecter en b, le 
module (c) est présenté face sans composant) 


Voici à quoi correspondent les différents raccords : 


1 : VDD 2 : B3 
3: 82 4 : B1 

5 : BO 6 : *STR 
7-2 CD 8 : DIN 
9 : DOUT 13 : GND 


Le 9 sert pour le chaînage de plusieurs modules. Pour 
connecter plusieurs modules, il faut brancher le DIN 
du premier sur le DIN du circuit, le DOUT du 
premier sur le DIN du second, le DOUT du second 
sur le DIN du troisième etc. 


Une fois les connexions réalisées, faites Memory Lost 
(LONJ CINSI 1-1) puis l’auto-test (LONJ LINSI 1-1 ; si lors 
de la présentation de la Ram, la machine s’arrête au 
bout de 4 pages, ceci signifie que le module possède 
une mauvaise connexion avec le cicuit imprimé) et 
MEM. Epatant ! Remarque : cette opération est assez 
délicate pour quelqu'un qui ne l’a jamais faite et une 
erreur peut provoquer la destruction de la Rom ou du 
module. 


ALIMENTATION 


Deux possibilités : ou bien vous vous fabriquez un 
connecteur branché sur un transformateur qui se loge 
à la place des piles ou bien vous vous branchez sur le 
gros condensateur aux bornes - et + (figure 1) et vous 
utilisez une petite prise de type mini-jack ou 
mini-broche que vous encastrerez dans le boîtier 
découpé à cet effet. 


ENTREES 


Première méthode 


Celle-ci consiste à simuler l'appui des touches au 
clavier en mettant en contact deux des pistes au bas 
de la carte. 





21 INS DEL 7 l + + 

20 [ ] MODE TRIG SOLV USER NEXT 
19 ENTER CHS EEX  DROP BACK 
DAS 8 9 + 

16 STO à 5 6 x 

14  EVAL 71 2 3 

11 0 ’ % 


20 A B C D E F 
19 G H I J K L 
17 M N 0 P Q R 
16 S T U V W x 
Ta Y z a € € C 
11 Space « = LC a 


Voici un exemple parmi d’autres utilisant la sortie 
joystick de l’Apple IT. Il faut faire quatre circuits très 
simples (il y a quatre circuits identiques : remplacer 
successivement i, j et k par 0, 4, 21 puis par 1, 7, 21 
puis par 2, 7, 14 et enfin par 3, 7, 11) R=4700 ohms, 
T=BC237, relais = ILS Günther 3753 1231 051, la 
diode est une LED ordinaire. 


+5" 


ant 


9 nd rel, 


de ]2 


L’Apple commande alors l’appui des deux premières 
touches du menu et le 1 et le 0 à l’aide de ces 4 
circuits. 


Soient À, B, 1, 0 ces touches. Sur À vous placez un 
programme qui fera trois choses même temps : placer 
un # dans la ligne de commandes, un programme sur 
A annonçant la fin d’un octet et la mise en place d’un 
# dans la ligne de commandes et, enfin, sur B un 
programme de fin totale. Par exemple : 


"DEBUT'! 
« 
MIT STRING! STO 
{ F-OCT FIN } ORDER 
HEX #4F038 "0181" POKE BIN 
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‘F-OCT! 
« 
BR CHR STRING SWAP + 
ISTRING! STO HEX #4F038 
"0181" POKE BIN 


‘FIN! 
« 
BR CHR STRING SWAP + 
ISTRING' STO HEX 
STRING STR+ € DEBUT } ORDER 


Du coté Apple, on effectue POkKE -16296,0 pour mettre 
ANO OFF et -16295 pour ON, -16294 pour AN1 
OFF .… -16289 pour AN3 ON. Le message commence 
donc par appuyer sur À c’est à dire AN2 ON puis 
OFF puis sur J et 0 selon le cas et par AN2 pour la fin 
de chaque octet et à la fin du dernier on appuie sur 
FIN. 


Ainsi, vous entrez les code décimaux en page 
graphique ou en fichier, sauvegardez sur Apple, à la 
main ou par la sortie infra-rouge et les rappelez 
quand nécessaire pour les entrer dans le HP-28 
automatiquement. 


Deuxième méthode 


A droite de la diode émettrice se trouvent deux pistes 
qu'il suffit de mettre en contact pour obtenir un 
changement de valeur à l’adresse #4070C (version 
1BB) ou #FFF0C (version 2BB, HP-28S). Lorsque 
j'accélère et mets de la mémoire sur les HP-28C, je 
connecte à cet endroit un ILS : ces gélules de verre 
ferment un interrupteur en présence de champs 
magnétiques. Il suffit de placer un électro-aimant en 
face du port infra-rouge et d’envoyer par induction 
des signaux longs ou courts (1 ou 0) au HP-28. 


Toisième méthode 


Cette méthode, encore meilleure, consiste à baisser la 
tension d’alimentation de 4,5 V à 3 V par le petit 
couvercle du compartiment des piles ce qui ne 
requiert aucune modification de la machine. Ce 
changement est répercuté à une adresse mémoire de 
la machine. Comme précédemment, il suffit d'envoyer 
des signaux longs ou courts donnant des 1 ou des 0 
(plus de détails dans un prochain JPC). 
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SORTIES 


Première méthode 


Une méthode archaïque consiste à afficher à l’écran 
de grosses taches noires et à les détecter avec un stylo 
optique. 


Deuxième méthode 


Il s’agit d'utiliser le buzzer. Le circuit à utiliser coté 
Apple est le suivant (C = 1 F chimique, R = 47000 
ohms, R’= 470 ohms, T = BC237) et vous vous 
branchez directement aux bornes du buzzer : 





Du coté HP, il faut utiliser le programme suivant 
après avoir mis la chaîne à transmettre dans la pile : 


BIN 51 CF 


DUP SIZE R+B 32768 + -+STR 
4 99 SUB 
1 15 FOR 
X DUP X X SUB 
1F uqu == 
THEN 
4000 0.001 BEEP 
ELSE 
4000 0.0000001 BEEP 
END 
NEXT 


WHILE 
DUP SIZE 
REPEAT 
DUP2 OVER SIZE SUB 
SWAP NUM 512 + R+B -+STR 
4 99 SUB 
1 8 FOR 
X DUP X X SUB 
1F uqu == 
THEN 
4000 0.001 BEEP 
ELSE 
4000 0.0000001 BEEP 
END 
NEXT 
DROP 
END 
DROP 


» 


Du coté Apple : 


5 INPUT !NOM DU PRGM :1";A$ 
10 HGR : POKE -16302,0 
20 AD=8192 : L=0 


30 FOR X=1 TO 15 : L=L+L : WAIT -16287,128 


40 IF PEEK(-16287)<128 THEN NEXT : GOTO 80 

50 L=L+1 

60 IF PEEK(-16287)>127 THEN 60 

70 NEXT 

80 T=0 : FOR W=1 TO 8 : T=T+T : WAIT -16287,128 
90 IF PEEK(-16287)<128 THEN NEXT : GOTO 130 

100 T=T+1 

110 IF PEEK(-16287)>127 THEN 110 

120 NEXT 


130 POKE AD,T : AD=AD+1 : IF AD<8192+L THEN 80 
140 PRINT CHR$(4) 'BSAVE';A$;1,A$2000,L":STR$(L) 
150 TEXT : END 


C’est en utilisant cette méthode que j'ai transféré la 
Rom du HP-28C ! 


Troisième méthode 


La meilleure sortie est, bien entendu, la diode 
infra-rouge. En effet, pour allumer la diode il suffit de 
faire : « #4070D "1" POKE » pour la version 1BB ou 
« #FFFOD "1" POKE » pour la version 2BB. 


Il y a trois niveau d’allumage : "1" le plus fort, "2" le 
moyen, "4" le faible et "0" éteint. Lors des 
transformations sur le HP-28, vous pouvez placer, si 
vous le souhaitez, une petite diode rouge branchée en 
série avec l'émetteur infra-rouge : on simule ainsi un 
coeur, l’effet est saisissant ! 


Comme pour l'entrée, le circuit permettant de lier le 
HP-28 à un ordinateur quelconque par interface 
RS232 sera publié dans un prochain JPC. 


Attention : une fois allumée, la diode infra-rouge le 
restera même après avoir éteint la machine. Il faut 
donc toujours veiller à ce qu’elle soit éteinte par 
« #4070D "O" POKE » OU par un arrêt système 
(tow1 111). La consommation de la machine passe de 
4,5 mA à 30 mA lorsque la diode est allumée et à ce 


rythme, les piles ne dureront pas longtemps. 


OUVERTURE DE LA MACHINE 


La compagnie S.O.S. aux Etats-Unis utilise une 
méthode qui revient à percer ou à fraiser le dos de la 
machine (attention au buzzer) puis de remettre un 
cache une fois les transformations effectuées. Cette 
méthode est peu esthétique et fragilise la machine. 


La méthode proposée ici est meilleure puisque 
pratiquement invisible et ne fragilise pas la machine. 
Elle n’est détectable que par un oeil exercé : seules 
deux petites fissures de 1 mm par 0,5 mm sont visibles 
en haut à droite et à gauche du clavier. 


Il suffit de décoller doucement et sans l’abimer le 
cache qui couvre le clavier, de scier verticalement en 
haut du clavier, juste sous l’écran sur une profondeur 
de 2 mm et à l’aide d’une pince judicieusement 
choisie (type pince crocodile) de faire sauter le haut 
du HP en écartant la pince dans le compartiment des 
piles. On peut alors faire les transformations désirées, 
fraiser l’intérieur pour loger le module 32 Ko puis 
recoller l’ensemble. La machine est d’une solidité 
parfaite et d’une esthétique très peu altérée. 


CONCLUSION 


Ces transformations sont délicates et exigent une 
certaine expérience. Ayant acquis cette expérience en 
utilisant ma première machine comme cobaye (la 
pauvre), je peux poser pour les interessés la 
mémoire supplémentaire, le turbo, une diode et un 
ILS sur leur machine préférée. Pour tout 
renseignement, me contacter. 


Un HP-28C accéléré, muni de 34Ko (les 2 Ko 
d’origine plus 32 Ko) et d’entrées / sorties permettant 


la sauvegarde de programmes sur disquettes est une 
véritable merveille ! 


Sébastien Lalande (442) 
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figure 1- HP28C 
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HP75 


E. Gengoux 
J.Y. Hervé & E. Gengoux 


J.Y. Hervé 
J.Y. Hervé 


Une mémoire d’éléphant 
Explorer les Lex 


Programme "LEXDIR" 
Programme "LEXCAT" 


L2 
13 


37 
37 
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UNE MEMOIRE D’ELEPHANT ! 


Au début de l’année, je vous avais signalé la 
possibilité de faire « brûler » vos logiciels favoris dans 
une Eprom de 32 Ko, et vous avais promis des détails 
dès que ceux-ci seraient disponibles. Ce qui est le cas 
depuis peu, puisque le Club vient de recevoir un 
courrier de Corvallis Micro Technology (CMT, 
producteur des Eprom 32 Ko et 64 Ko du HP-71), qui 
nous propose d’importantes remises (30%). Voici 
donc les tarifs pour commande directe (mais vous 
pouvez passer par EduCALC et régler par carte Visa 
ou autre..), et surtout la manière de procéder, que 
j'ai testée avec un logiciel de prévision de chiffre 
d’affaires (ou de toute autre série économique 
mensuelle) qui, joint à ses utilitaires, frisait justement 
les 32 Ko. 


Tout d’abord, les tarifs ; ils s'entendent hors TVA et 
douane. 


Code EduCALC 

| Prix EduCALC 

| | Prix CMT Club 
Désignation v v v 
nn Hem ehenssssssss 
Eprom 32K vierge| #75-669 | $ 229.95 | $ 171.50 
Programmation | #75-675 | $ 60.00 | $ 50.00 
Frais d'expéd. | Voir selon voie | $ 15.00 
dass esse s déssméndaebe sise gene sense 


Maintenant, les détails pratiques lEprom se 
présente sous la forme d’un module d’application 
enfichable classique. Enfin, presque : il y a sur le 
dessus une fenêtre permettant leffacement aux 
ultra-violets, plus trois contacts spéciaux dont le rôle 
reste mystérieux. voir dessin. Contrairement à ce 
que nous connaissons bien pour le HP-71, il n’est pas 
possible de brûler soi-même une telle Eprom, le 
brûleur n’étant pas disponible hors de CMT ; de plus, 
étant donnée la structure très particulière de la 
mémoire du HP-75, et notamment des modules 
enfichables (adresses 6000 à 7FFF hexa) en pages de 
8 Koctets, ne pouvant comporter chacune qu’un seul 
fichier Lex et excluant certains mots-clés, voir "les 
pièges du PMS"! il faut absolument : 


- tester systématiquement l’ensemble du logiciel dont 
on envisage l'implantation en Eprom avec un PMS 
(voir plus bas l’essai de celui construit par Vincent 
Delorme), 


JPC 53 Page 12 


- fournir sur disquette à la fois les fichiers eux-mêmes 
(Basic ou Lex) et les images de pages Eprom (fichiers 
particuliers de type R, obtenus avec le PMS et son 
Lex associé), et sur papier (lettre accompagnant votre 
commande) le catalogue de chacune des pages 
d’Eprom, dans l’ordre d’implantation (1.e. "ROMA", 
"ROMB", ""ROMC",...), avec leurs checksums. 


Je tiens à la disposition de ceux qui envisageraient 
une telle implantation un modèle de lettre en anglais, 
et suis prêt à les assister pour finaliser leur projet. Et, 
puisque j'utilise maintenant un tel logiciel, d’abord 
implanté dans un PMS très musclé (voir ci-après), 
puis en Eprom, laissez-moi vous dire à quel point il 
est agréable de disposer d’une machine tout à la fois 
dédiée (logiciel résidant en permanence dans un 
module) et où la mémoire Ram reste complètement 
libre pour les données ! 


Puisque nous y sommes, rappelons que HP avait 
réalisé à l’intention des développeurs de logiciels un 
PMS de 16 Ko (les initiales PMS signifient Port 
Module Simulator, c’est à dire une mémoire Ram un 
peu spéciale simulant un module enfichable, mais 
pouvant bien entendu se charger à volonté à partir du 
HP-75, au moyen d’un Lex ad hoc), référencé 
HP-82173A, qui s’est vite révélé bien petit. On 
pouvait en brancher plusieurs sur un même HP-75, 
mais on devait alors retirer autant de modules, ce qui 
empêchait certaines combinaisons (par exemple 
VisiCalc + Math + Rom 1/0 + Eprom, ou deux 
modules seulement + deux PMS, dans le cas d’un 
logiciel de 32 Ko finaux). Certes, un montage 
expérimental de 48 Ko avait été présenté à la 
Conférence CHHU d'Atlanta, mais il avait fallu 
bricoler puissamment le HP-75 pour contourner la 
difficulté des trois ports Or, depuis peu, un « 
Super-PMS » existe, qui sera très bientôt décrit dans 
JPC : notre ami Vincent Delorme a en effet réalisé un 
PMS de 32 Ko qui ne mobilise qu’un seul 
emplacement, donc permet le test en vraie grandeur 
d’'Eproms de 32 Ko utilisant les fonctions de deux 
modules externes, sans acrobaties ni compromis. 
J'apprends d’ailleurs à l'instant même qu'il vient de le 
pousser à 96 Ko, moyennant modification du Lex 
PMS de HP pour pouvoir switcher le nombre 
maximum de pages de 8 Ko permis par la taille de la 
table ROMTAB, sans être gêné par celles 
correspondant aux modules déjà branchés sur la 
machine. Une très belle performance, d'autant plus 
que la documentation interne du PMS n’a pas été 
diffusée par HP (même en NOMAS), et qu'il a fallu 
désassembler le Lex PMS avec les moyens du bord, 
comprendre ce qu’il faisait et comment on pourrait le 
gonfler. À propos, si quelqu'un a des informations sur 
le fonctionnement interne du Pod, autre grand 
inconnu des NOMAS, nous sommes clients ! 


Ajoutons pour conclure que le super-PMS dont je 
vous parle, réalisé en technique wrapping, reste très 
accessible à la fois en prix de revient et en facilité de 
construction. Le niveau de montages est comparable 
à ce qui a été récemment publié dans la revue Elektor. 
A bientôt donc, le HP-75 n’est pas encore mort ! 


Eric Gengoux (108) 


EXPLORER LES LEX 


Pour connaître la liste des mots-clés contenus dans un 
Lex résidant en Ram (pour ceux contenus dans un 
module, c’est un peu plus compliqué), il fallait 
jusqu'ici utiliser un autre Lex, HELP (HP Users 
Library #00180-75-8). Cet outil offre l'avantage de 
donner la syntaxe de chacun des mots-clés, mais 
présente deux inconvénients : celui d’être payant, et 
de donner tous les mots-clés de tous les Lex et 
modules d'application, y compris les Roms système, 
sans aucun filtrage possible. 


Le programme Basic joint, qui nécessite seulement la 
Rom 1/0 et MEMLEX (liste jointe), ne traite que le 
Lex dont le nom est spécifié, s’il a été au préalable 
chargé en Ram. Ainsi, pour MEMLEX, il aurait 
imprimé : 


MEMLEX 422 octets Id:13000 PEEK 
POKE 
ADDR 
ROMPEEK 


DIRECT 


Pour aller un peu plus loin, voici un autre utilitaire, 
toujours en Basic, LEXCAT, qui effectue le 
désassemblage de l'en-tête du fichier Lex et imprime 
le résultat. On notera l’utilisation de la fonction REPL$ 
de la Rom 1/0 en ligne 520, pour éviter les sauts de 
ligne ou de page intempestifs dûs aux caractères 
ASCII (10) et (12). 


A la fin, on obtient un listing de la forme : 


CATALOGUE: MEMLEX 


34158 60 149 Adresse 
34160 166 1 Longueur: 422 
34162 141 Accès 
34163 76 Type: L 
34164 192 83 253 163 Date de création 
34168 77 69 77 76 69 MEMLEX 
34173 88 32 32 
EN-TETE 
38204 200 50 Lexid 
38206 12 O0 Runtab: 38218 
38208 38 O0 Asciis: 38242 
38210 24 0 Partab: 38230 
38212 64 0 Errmsg: 38268 
38214 131 0 Intcpt: 38335 
RUNTAB 
ASCIIS 


38242 80 69 69 203 #1: PEEK 
38246 80 79 75 197 #2: POKE 
ERRMSG 
97 100 100 114 101 #249:address not in RAM 
38274 115 115 32 110 111 
38279 116 32 105 110 32 


38287 119 114 111 110 103 #250:wrong ROM address 


38332 255 Byt 
38333 225 Version: a 
38334 23 Attribute 


Pour aller encore plus loin, c’est à dire désassembler 
le Lex proprement dit, il vous faudra disposer d’un... 
désassembleur ! Ca y est ! Monsieur de La Palisse a 
encore frappé ! Celui écrit par Janick Taillandier est 
excellent, et sera très prochainement publié ici même. 


A bientôt et. bonne exploration ! 


Jean-Yves Hervé (450) 
Eric Gengoux (108) 


MEMLEX L 440 Bytes ROMid:13000 


1 39AEA6018D4CC053FDA34D45 B1 
2 4D4C45582020C8320C002600 A4 
3 1800400083000000B600CA00 5D 
4 030128019801000098009C00 05 
5 9B009B009B00FFFF504545CB 79 
6 504F4BC5414444D2524F4D50 8C 
7 4545CB4449524543D4FFF961 EE 
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8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 


646472657373206E6F 742069 
6E205241CD77726F6E672052 
4F4D20616464726573F3696E 
76616C696420524F4D206E6F 
AE656E64206F6620524F4D54 
41C2FFE1179E4206E36DA8B4 
6E21A16D06E54CE442E59E6C 
O6E30AE59E9E42B1A38202C6 
84005DA802CE64125E0AE2F0 
E6CE994CF99E102DCECD3ECE 
6146FA7D5E9321A4CE8A0160 
OAE5SEA1CE8B3ECECD3E 7020 
A1SEA9FF7FCE8A01996028A3 
30C5 FAO2FOCB5SEA90060CE8A 
01996028C330C5FB02FO0BA60 
30A1CE6146FA7D7E21A69E 18 
2DCE774ACE92245EB1B1825C 
A9FF7F985E 1CC5CE8A016028 
A3SEA9FF7FCE8A01CEDF3CCE 
D7379E202DCE8B3E6691F20A 
C94900FB05C92000FB07CE99 
4CFB9EFOCA6612A253A885CE 
CD3E 7020A15EA9FF5FCE8A01 
996030C5FBODSEA9FF7FCE8A 
01996030C5FB07CE994CFA9E 
FOD16030A1CE6146FA7D5012 
A05113A0CEAC47F60E5E9321 
A4CE 1D48CE8A01600AE59ECE 
1D48CE994CFC9E1820CE774A 
CE92245E18A1F0C8 

C8E0 


83 
91 
FD 
1F 
40 
92 
EE 
F9 
0E 


92 
34 
49 
71 
E6 
BD 
E3 
E4 
3F 
88 
69 
DE 
00 
D9 
42 
46 
80 
FO 
88 





E&S87t(3 


"Le HP7 


ME ho Vie 





j ÉBkant re 


_—_— 





JPC 53 Page 14 


ASSEMBLEUR 


P. David & J. Taillandier 


BASIC 


A. Rottman 
J.Y. Hervé 


J.Y. Hervé 
A. Rottman 


LE COIN DES LHEX 


Programmation structurée (acte II) 


Dérivées symboliques (acte I quinte) 


Programme "LEXDIR" (pour HP-75) 
Programme "LEXCAT" (pour HP-75) 
Programme "DIFF" 


16 


39 
37 


37 
38 


42 


JPC 53 Page 15 


PROGRAMMATION STRUCTUREE 
(ACTE Il) 


Comme promis le mois dernier, voici la suite de la 
programmation structurée sur HP-71. 


INTRODUCTION 


Lors de lacte I, nous avons vu les mots-clefs 
permettant de programmer « proprement », c’est à 
dire avec des boucles n’ayant qu’une seule entrée et 
sortie, ou des structures de choix plus faciles à 
manipuler que les structures standard. 


En essayant ces nouveaux mots-clefs, vous avez dû 
constater qu’il était difficile de relire vos programmes. 
En effet, les ordres LIST et PLIST ne pratiquent pas 
l'indentation. Vous ne retrouvez pas sur le papier de 
votre imprimante les beaux décalages de Particle 
précédent. 


C’est l’objet de cet acte II. Le Lex que nous vous 
présentons aujourd’hui comprend deux nouveaux 
mots-clefs pour mieux présenter vos oeuvres : DBLIST 
liste (et PBLIST imprime) un programme Basic en 
indentant automatiquement les structures. 


HISTORIQUE 


La première apparition de ce Lex date d’octobre 1986 
(PC 38). Jean-Pierre Bondu nous présentait le Lex le 
plus volumineux jamais paru dans JPC. 


Jean-Pierre s'était inspiré d’un programme Basic 
nommé JPCLISTE qui servait (jusqu’à un passé très 
récent) à lister les programmes Basic dans JPC, et 
l'avait transformé en assembleur. 


A l'apparition de STRUC2, le Lex de Jean-Pierre a 
commencé à prendre un coup de vieux. L'indentation 
des structures devenait indispensable. D’où l’article 
de ce mois-ci. 


Notons enfin que Jean-Pierre avait également inclus 
un mot-clef RENUMREM destiné à renuméroter un 
programme en tenant compte des lignes de 
remarques. Nous avons repris ce mot-clef tel quel, et 
nous renvoyons le lecteur intéressé à JPC38 pour 
plus de détails. 
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SYNTAXE 


Les syntaxes de DBLIST et PBLIST sont identiques : 
Syntaxe classique 


DBLIST 

DBLIST départ 

DBLIST départ , fin 

DBLIST fichier 

DBLIST fichier , départ 
DBLIST fichier , départ , fin 
- premier cas : le fichier courant est listé dans sa 
totalité, 

- deuxième cas : 
courant est listée, 
- troisième cas : le fichier courant est listé de la ligne 
départ à la ligne fin, 

- quatrième cas : le fichier spécifié est listé dans sa 
totalité, 

- cinquième cas : 
spécifié est listée, 
- sixième et dernier cas : le fichier spécifié est listé de 
la ligne début à la ligne fin. 


seule la ligne départ du fichier 


seule la ligne départ du fichier 


En plus de ces six possibilités, vous pouvez ajouter 
deux options extrêmement intéressantes. 


L’indentation 


La première de ces options est l’indentation. Si vous 
complétez une des formes précédentes par : 


DBLIST … INDENT largeur 


Votre programme sera automatiquement listé en 
indentant les structures. La largeur correspond au 
nombre d'espaces ajoutés à chaque nouvelle structure 
rencontrée. 


Par défaut, la largeur d’indentation est nulle, ce qui 
veut dire que le programme n’est pas indenté. 

La redirection 

Si maintenant vous faites suivre une des syntaxes 
précédentes par : 

DBLIST … TO fichier 

Le listage n'ira pas à l'écran, mais dans le fichier 
spécifié. C’est ce qui nous permet, par exemple, 


d'imprimer le journal avec des beaux listings 
structurés. 


Vous pouvez naturellement cumuler toutes ces 
options et ces syntaxes. Par exemple, vous pouvez 
taper des lignes telles que : 


DBLIST 100,150 INDENT 4 TO EXEMPLE 
ou Encore : 


PBLIST ESSAI,1000,9000 TO X INDENT 2 


REGLES D’'INDENTATION 


Pour bien utiliser DBLIST et PBLIST, il faut connaître les 
règles d’indentation. Rassurez-vous, elles sont 
naturelles et pas trop nombreuses. 


Pas de GOTO ! 


Vous pouvez utiliser des GoTo dans vos programmes, 
mais l’indentation ne peut plus être garantie. Bah ! 
De toute manière, vous n'utilisez plus cette 
instruction depuis longtemps, n’est-ce pas ? 


Indentations des boucles 


Toutes les boucles (WHILE, LOOP, REPEAT, mais aussi 
FOR...NEXT) sont indentées en décalant le corps de la 
boucle. Par exemple : 


100 X=1 

110 WHILE X<5 
120 DISP X 
130 X=X+1 
140 END WHILE 
150 DISP "Fini" 
160 END 


Les instructions de contrôle de la boucle ne sont pas 
décalées par rapport au reste du programme. 


Indentations des structures de choix 
La structure 1F multi-lignes est indentée comme suit : 


100 INPUT X 

120 IF X<0 THEN 

130 DISP "X négatif" 
140 BEEP 1400,.075 
159 ELSE 

160 R=SQRT(X) 

170 END IF 

180 DISP "Racine ='":R 
190 END 


Les structures de choix multi-lignes (SELECT...CASE) 
sont indentées en décalant les CASE et les clauses : 


100 K$=KEYWAITS 
110 SELECT K$ 
120 CASE “A! TO "71 


130 DISP Lettre! 

140 CASE "#461 

150 DISP "Touche [RUN]" 
160 CASE ELSE 

170 DISP "Autre 

180 END SELECT 

190 BEEP 

200 END 

Indentation des DEF FN 


Seules les DEF FN multi-lignes sont indentées. C’est 
exactement la même indentation que pour les 
boucles. 


Traitement des DATA et des labels 


Les blocs de DATA et les labels sont précédés d’une 
ligne blanche. Les blocs de DATA sont également suivis 
d’une ligne blanche. 


Traitement des SUB 


Les sous-programmes suB sont précédés d'un trait 
horizontal pour bien marquer la séparation avec le 
reste du programme. En plus, leur décalage est remis 
à O avant de lister le corps du sous-programme qui, 
lui, est décalé. 


CONCLUSION 
STRUC2 et BASICLEX constituent un outil 
fondamental pour aborder les problèmes 


informatiques : la programmation structurée a prouvé 
son efficacité. Non, elle n’est pas réservée aux seuls 
professeurs, et bien souvent, elle est le moyen de 


ramener la complexité des problèmes à un niveau 
abordable. 


Voilà. Nous sommes sûrs que vous saurez en faire 
bon usage. 


A bientôt donc, 


Pierre David (37) 
Janick Taillandier (246) 
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=AVMEMS 
=BASCHA 
=BSERR 
=CK'"ON'!! 
=CKINFO 
=COMCK 
=CPL#10 
=CRETF+ 
=CUR IND 
=CURREN 
=CURRL 
=CURRST 
=D0=PCA 
=DISPt 
=EOLCK 
=EOLXC* 
=EOLXCK 
=EXPEXC 
=EXPRDC 
=FILDC* 
=FINDA 
=FINDF+ 
=FINDL 
=FINDLO 
=FSPECe 
=FSPECp 
=FSPECx 
=FUNCRO 
=GETPR1 
=GETPRO 
=GETSTC 
=IVAERR 
=IVPARe 
=InhEOL 
=LDCM10 
=LIN#DC 
=LISTDC 
=MEMCKL 
=MFERR 
=MLFFLG 
=MOVED2 
=MOVEUA 
=MPY 
=NTOKEN 
=NTOKNL 
=NUMCK 
=NXTLIN 
=NXTSTM 
=0BCOLL 
=OUT1TK 
=OUT3TK 
=OUTBS 
=OUTBYT 
=OUTNBC 
=PCADDR 
=PRINT 


JPC 53 Page 18 


LEX 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


"BASICLEX! 


#2F594 
#07741 

#0939A 
#076AD 
#18542 
#036CD 
#07887 
#084C4 
#2F8CA 
#2F56C 
#2F7E8 
#2F55D 
#09B37 
#00000 
#O2A7E 
#052EC 
#05405 
#0F186 
#05922 
#05759 
#023E3 
#09F63 
#OFFE4 
#OFFFD 
#02F02 
#03CC5 
#09F2D 
#2F89B 
#06BFB 
#O6BEE 
#07726 
#0E920 
#O2E3F 
#00004 
#04F6F 
#05115 
#05839 
#012A5 
#09393 
#2F870 
#18104 
#18168 
#OECBB 
#0493B 
#048E6 
#0369D 
#10031 

#08A48 
#01435 
#O2CEB 
#02D15 
#2F58F 
#O2CE8 
#05423 
#2F679 
#00001 


=PRSCOO 
=RENSUB 
Z=RESPTR 
=RNDAHX 
=RPLLIN 
=SENDEL 
=SNDWD+ 
=STMTRO 
=STMTR1 
=STUFF 
=SWPBYT 
=SYNTXe 
=TRFMBF 
=eFEXST 
=eSTMNF 
=fBASIC 
=LEOL 
=oBSsod 
=0FLENh 
=OoFLSTr 
=oFTYPh 
=t! 

=ta 
=tCOMMA 
=tDATA 
=tDEF 
=tELSE 
=tEND 
=tENDDF 
=tENDSB 
=tEOL 
=tFOR 
ztlF 
=tLBLST 
=tLINE# 
=tNEXT 
=tREM 
=tSUB 
=tTO 
=tXWORD 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 


=tINDENT EQU 


CON(2) 
CON(2) 
CON(2) 
REL(5) 


NIBHEX 
REL(4) 
CON(4) 
CON(5) 


#07B93 
#1A753 
#03172 
#136CB 
#013F7 
#17DC1 

#17E1F 
#2F871 

#2F881 

#1B0B2 
#17A24 
#02E2B 
#2F8C5 

#00038 
#0001E 

#0E214 
#00002 
#00011 

#00020 
#00031 

#00010 
#000FC 
#000F4 
#000F1 

#000C6 
#00089 
#000F5 
#000DA 
#000BA 
#000C2 
#000F0 
#000C3 
#000DF 
#000F6 
#0000F 
#000C4 
#000E6 
#000c1 
#000F3 
#OO0EF 


#E1 
90 Token de base 


200 


id 

t Lowest token 

a+t Highest token 
nxtlex pour INDENT et INTO 


F No speed table 
1+TxTbSt 

0 No message 

0 No poll handler 


He ke he he ee ee eh eh ee he ee he he ee oh ee eee eee ee ee ee de 


* Definitions empruntees a STRUC2 
KRRRÉRRRRRRRRRRRRERRÉRÉRÉRÉRRRRÉRRRRRÉAARRÉARRÉR ARR 


* Quartets de reconnaissance 


=qENDL EQU 0 END LOOP 
=qENDS EQU 1 END SELECT 
=qENDI EQU 2 END IF 


* Tokens de STRUC2 
=tEND2 EQU 66 
=tWHILE EQU 67 
=tREPEAT EQU 68 
=tUNTIL EQU 69 
=tLEAVE EQU 70 
=tLOOP EQU 9% 
=tSELECT EQU 97 
=tCASE EQU 98 
=tlF2 EQU 99 
=tELSE2 EQU 100 


* Main table 

CON(3) (TxEn01)-(TxTbSt) 
REL(5) =DBLSTe 
NIBHEX D Statement 
CON(3) (TxEn02)-(TxTbSt) 
REL(5) =PBLSTe 
NIBHEX D Statement 
CON(3) (TxEn03)-(TxTbSt) 
REL(5) =RENUMe 
NIBHEX D 

* Text Table 

TxTbSt 

TxEn01 CON(1) 11 
NIBASC 'DBLIST!' 
CON(2) t 

TxEn02 CON(1) 11 
NIBASC !'PBLIST! 
CON(2) 1+t 

TxEn03 CON(1) 15 
NIBASC 'RENUMREM! 
CON(2) 2+t 
NIBHEX 1FF 


Statement 


End of text table 


nxtlex CON(2) =id 
CON(2) =tINDENT 
CON(2) =tINDENT 


CON(5) 0 

NIBHEX F No speed table 
REL(4) 1+TxTbS2 . 
CON(4) 0 No message 
CON(5) 0 No poll handler 


* Main table # 2 
CON(3) (TxE201)-(TxTbS2) 
CON(5) 0 
NIBHEX O0 
* Text Table # 2 
TxTbS2 


Mot non accessible 


TxE201 CON(1) 11 
NIBASC !INDENT' 
CON(2) =tINDENT 
NIBHEX 1FF 


He ke ee ee ee He OH OR 


* ROUTINES DE PARSE 


ee eee ee ee eh he he he eee ee ee 


PRSETO EQU 
PRSEIN EQU 


(=FUNCRO}+0 
C=FUNCRO)+1 


ROKROROMK MON ROME HE HERMANN AA ee 


* DBLSTp, PBLSTp 

* 

* But : parse quelque chose de tres complique... 
* Historique : 

* _86/05/..: JPB reecriture d'apres 1.D.S. 

* 88/01/10: PD & JT documentation 

* 88/01/31: PD & JT correction de PBLIST TOTO 


Ve he de he he he ee he he he ee he he eh he ee he ee ee 


=DBLSTp 
=PBLSTp 

* Mettre a 0 Les flags PRSETO et PRSEIN 

* qui interdisent de mettre deux fois La meme 


* option. 
A=0 B Le 88/01/31 : gagne quelques 
CDOEX quartets 
DO=(5) PRSETO 
DATO=A B Pas encore vu de TO/INDENT 
DO=C 


* [<file>] [,<li#> [,<li#>1] [TO <file>] [INDENT <n>] 
* Autrefois inspire de LISTP (#03B92 / HP71B) 
GOSUB eolckx 
Goc resptr 
GOSUB CKINDT 
GOC LSTP60 
GOSUB resptr 
*  <file> ou bien encore TO 


* A 


tEOL trouve 


tINDENT trouve 


GOSBVL =FSPECp specificateur valide ? 
GONC  LSTP12 oui 
* si S7=1 
* alors reserved word in A 
Le (TO, ALL, KEYS, INTO, CARD) 
* sinon bad file parse 
* fin si 
2ST=0 7 
GOYES LSTP20 
* reserved word in A. Est-ce tTO ? 
DO=D0- 2 Revient sur tTO 
LC(2) =tTO 
2A=C B 
GOYES LSTP40 


Bad file parse ? 
Oui : peut-etre <line#> 


fspece GOVLNG =FSPECe Illegal file spec 
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MURS sue 
* A 


LSTP12 GOSBVL =COMCK Comma ? 
GONC LSTP30 Non : TO ou INDENT ou vraie fin 
* <file> , <line> ... 
LSTP20 GOSUB ck2li# <linel> [ , <Line2> ] 


* .. T0 <file> 


LSTP29 GOSBVL =NTOKEN Pour avancer 
LSTP30 GOSUB CKTO 


GOC LSTP40 
GOSUB CKINDT 
GOC LSTP60 


resptr GOVLNG =RESPTR 


* Traitement de TO <file> 
LSTP40 LC(5) PRSETO 
GOSUB CKSEEN 
GOSBVL =OUTITK 
GOSBVL =FSPECp specificateur valide ? 
GONC LSTP29 Oui : on continue 
Goc fspece Non : erreur (B.E.T.) 


* Traïtement de INDENT <expression> 
LSTP6O LC(5) PRSEIN 

GOSUB CKSEEN 

GOSBVL =OUT3TK 

GOSBVL =NUMCK 

GOTO  LSTP30 


HR ee ee ee He PH HD A AR 


eolckx 


But : idem EOLCK, mais avec NTOKEN au lieu de 
WRDSCN. 

Entree : 
- D1 = * flot ascii 


* 
* 
* 
* 
* 
* 
* Sortie : 
* 
* 
* 
* 
* 
* 


- Cy = 1 si tEOL trouve 
Appelle : NTOKEN, FINDA 
Niveaux : 3 
Abime : A, B, C, P, DO, D1, RO, S0-3, S11 
Historique : 
88/01/31: PD & JT recodage apres suppression 


KR he he ee ee he he he eh ee he he he eee RAR RAR 


eolckx GOSBVL =NTOKEN 
GOSBVL =FINDA 
CON(2) =tEOL 
REL(3) rtnsc 


CON(2) =ta 
REL(3) rtnsc 
CON(2) =t! 


REL(3) rtnsc 
CON(2) =tELSE 
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* 


+ # + *# * 


* 


* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 


* 


* 
* 
* 


* 


REL(3) rtnsc 


NIBHEX 00 
RTNCC Cy = O0 : non trouve 
rtnsc RTNSC Cy = 1 : trouve 


KORHON KHAN ARR 


RENUMp 


But : parse RENUMREM [<l1>[,<l2>[,<l3>[,<l4>]]]] 
Historique : 
86/05/..: JPB reecriture d'apres 1.D.S. 
88/01/10: PD & JT documentation 


A he he ke he he he he he ee he A ee 


RENUMp GOSUB eolck+ 
GOC resptR EOL : sortir 
GOSUB ck2li# 
?2ST=0 9 2 <line#> trouves ? 
GOYES rtncc Non : sortir 
GOSBVL =COMCK  Comma ? 
GONC resptR Non : sortir 
GOSUB ck2li# 
rtncc RTNCC ok 


eolck+ GOSBVL =EOLCK fin de commande ? 
RTNC oui : Cy=1 
resptR GOVLNG =RESPTR non : on revient 


A he he ke he he he he eh he he A He ee eh ee 


CKSEEN 


But : verifier que Le token TO ou INDENT n'a pas 
deja ete vu durant La parse. 
Entree : 
- C(A) = adresse du flag (PRSETO ou PRSEIN) 
Sortie : 
- si deja vu, alors erreur 
sinon flag mis a jour, Cy = 0 
Niveaux : 0 
Utilise : C(S) 
Historique : 
88/01/10: PD & JT conception & codage 


ee oh he he he he ee he ee he he ee ee eee he he ee he eee ee eh ee ee 


CKSEEN CDOEX 


C=DATO S 

2C#0 S Deja vu ? 
GOYES CKs10 oui : erreur 
C=C+1 S 

DATO=C S 

CDOEX 

RTN 


CKS10 GOVLNG =SYNTXe "Syntax Error! 


AR he he ee he he eee he he A AR RAR 


CKTO, CKINDT 


But : tester tTO ou tINDENT 


* Entree : 

x - À = token a tester 

* Sortie : 

* Cy = 1 : token trouve 

*  Cy = 0 : token cherche non trouve 

* Niveaux : 0 

* Utilise : C 

* Historique : 

* 88/01/10: PD & JT conception & codage 


KORRONONORR RONA OMR ROMA AR RRR AURA RRRRÉRRRRRARRÉRRRRÉRRÉÉRU HR 


CKTO LC(2) =tTo 
?A=C B 
RTNYES 
RTN 


CKINDT LC(6) (=tINDENT)-(=id)-(=tXWORD) 


P= 5 

?A=C WP 

GOYES  CKIN10 
CKIN1O P= 0 

RTN 


KO he OH He he he RH ee ee ee Re A 


* ck2li# 


* 

* But : parse "  <line#1> [ , <line#2> ] " 
* Entree : 

* _- D1 = * blancs optionnels avant 

* Sortie : 

* _- S9 = 1 si Les deux <line#> ont ete reconnus 
* Appelle : ck1li#, COMCK, NTOKNL, OUT3TK 

* Niveaux : 4 (NTOKNL) 

* Utilise : A-C, P, DO, D1, RO, S0-S3, s11 

* Historique : 

*  86/05/..: JPB reecriture d'apres 1.D.S. 
* 


88/01/10: PD & JT separation & documentation 


HONRH he he eh Me ee hee e eee eh eee ee eee e e 


ck2li# ST=0 9 
GOSUB ck1li# 
GOSBVL =COMCK 
GONC  resptR 
ST=1 9 


<line1> 

Comma ? 

Non : sortir 

On reconnait Les 2 <line#> 


ck1li# GOSBVL =NTOKNL 
LC(2) =tLINE# 
2A#C B 
GOYES  LSTPE 
LC(2) =tCOMMA 
A=C B 
GOVLNG =OUT3TK 


Idem NTOKEN, autorise Line# 


Pas <line#> : erreur 


LSTPE GOVLNG =IVPARe INVALID (MISSING PARM) 


Ve he he ee ee ee he ce eh ee ee he he eee ee ee 


* ROUTINES DE DECOMPILE 


He he he he ee he he he he ee he he ee ee ee he ee 2 he ee A Re 


KRRHORROM RON RORHOR HORREUR OUR RER RAR RAR Re de 


* DBLSTd, PBLSTd 

* 

* But : decompiler DBLIST, PBLIST, RENUMREM 
* Historique : 

* _86/05/.. : JPB conception & codage 
* 88/01/10 : PD & JT nouvelle syntaxe 


eh he he he he he he he he he he he ee he ee eee he ee ee ee he eee ee ee ee 


=DBLSTd 
=PBLSTd ST=0 8 Premiere fois : pas de !,' 
* Boucle de decompilation des elements 
* A l'entree, D1 pointe sur Le token a decompiler. 
* Les alternatives sont : 
* <file spec> 

[ , <line #> ] 

TO <file spec> 
INDENT <exp num> 
LSTDOO GOSBVL =EOLXC* 

GOSBVL =FINDA 


(S8=1 si affichage !,') 


*+ * * 


No return if end of statem. 


CON(2) =tCOMMA <line#> (LSTDC+) 
REL(3) LSTD10 
CON(2) =tT0 TO <file> 


REL(3) LSTD20 
CON(2) =tXWORD 
REL(3) LSTD30 
NIBHEX 00 
* <file spec> 

GOSBVL =FILDC* 

LSTDO5 ST=1 8 
GOTO LSTDO0 


INDENT <exp num> 


* [, ] <line#> 
LSTD10 ?ST=0 8 Besoin de sortir !,! ? 

GOYES LSTD12 Non 
LCASC !,! Affichage de !,' 
GOSBVL =OUTBYT 

LSTD12 D1=D1+ 2 Passer tCOMMA 
GOSBVL =LIN#DC Envoyer <line#> 
GOTO LSTDO5 


* TO <file spec> 
LSTD20 GOSUB OUTSPC 
LCASC * OT! 
P= 3*2-1 
GOSBVL =OUTNBC 
D1=D1+ 2 
GOSBVL =FILDC* 
GOTO LSTDOS 


* INDENT <exp num> 

LSTD30 GOSUB OUTSPC 
LCASC ! TNEDNI'! 
P= 721 
GOSBVL =OUTNBC 
D1=D1+ 6 
GOSBVL =EXPRDC 
GOTO LSTDO5 
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he he he he ee ee he oh he eee eee ee he he eh he ee ee ee ee 


* OUTSPC 


* 


* But : afficher un espace si TO ou INDENT ne 
* suivent pas directement D/PBLIST. 

* Entree : 

* _- S8 = 0 si directemenbt derriere D/PBLIST 
* Sortie : 

* - un blanc dans Le flot ASCII 

* Appelle : OUTBYT 

* Utilise : A(B), C(B), DO 

* Niveaux : 1 

* Historique : 

* 


88/01/10: PD & JT conception & codage 


eh he he cho ee he he he he eee ee he he eh ee eh eh eh ee he eee ee he eee eee de 


OUTSPC ?ST=0 8 
RTNYES 
LCASC ! ! 
GOVLNG =OUTBYT 


RRRRRRRRRRRRRRRRRRARRRRUÉRRRARRRRRURRRRRRÉRRRRRRRRARÉ 


RENUMd 


Historique : 
86/05/.. : JPB conception & codage 


He He he eh A ee DH HA A Re 


* 
* 
* But : decompiler RENUMREM 
* 
* 


=RENUMd GOVLNG =LISTDC 


Ve he ee he he AH he He He ee ARR Re 


* ROUTINES D'EXECUTION 


HR h he he ee he he ee He ee he A ee he 


INDVAL EQU O0+=TRFMBF 5 q : valeur indentation 
CURIND EQU 05+=TRFMBF 5 q : indentation cour. 
OUTYPE EQU 10+=TRFMBF 1 q : 0: fichier, 1: std 
OUTADR EQU 11+=TRFMBF 5 q : adresse ds fichier 
OUTHDR EQU 16+=TRFMBF 5 q : header du fichier 
LDEB  EQU 21+=TRFMBF 5 q : ligne de debut 
LFIN EQU 26+=TRFMBF 5 q : Ligne de fin 
INFILE EQU 31+=TRFMBF 5 q : adresse ds fichier 
INEND EQU 36+=TRFMBF 5 q : fin du fichier 
INDARM EQU 41+=TRFMBF 1 q : O:std, 1:DATA, 2:! 
INDCOU EQU 42+=TRFMBF 2 q : valeur courante 
INDLIG EQU 44+=TRFMBF 2 q : en debut de Ligne 
SAUTAV EQU 46+=TRFMBF 1 q : sauter ligne avant 
SAUTAP EQU 47+=TRFMBF 1 q : sauter ligne apres 
TMP EQU 48+=TRFMBF au moins 2 q. 
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inDATA EQU 
inREM  EQU 


pour INDARM 
pour INDARM 


D 


CLRIEN EQU 
cLNDDF EQU 
clSUB EQU 
clDEF1 EQU 
clDEF2 EQU 
ClDATA EQU 
ciLBL EQU 
CLlREM EQU 
cLliF  EQU 


œ© — © U1 F& WW © = © 


Vo ke che ke he he he he he he eee he ee eh oh he eh he he he oh ee he eh eh ee he eh ee 


* PBLIST / DBLIST 


* 


* But : produire un listing structure sur 
* l'imprimante ou dans un fichier. 

* Detail : 

* __initialiser les variables globales 

" initialiser Les options par defaut 

* 

* tant que non fin de Ligne tokenisee 

e faire 

” selon token 

# tCOMMA : 

” LDEB, LFIN := numeros de ligne 
* tester la validite 

” tTO : 

# evaluer le specificateur de fichier 
Fe chercher le fichier 

e si il existe 

x alors "File Exists'" 

x fin si 

+ stocker les parametres pour creation 
® tXWORD : 

L INDVAL := evaluer l'expression 
x autre : 

* evaluer le fichier 

x chercher le fichier 

* si il n'existe pas 

* alors "File Not Found! 

* fin si 

* verifier type et protections 

e INFILE := * fichier 

“ fin selon 

* fin tantque 

* creer le fichier de sortie si necessaire 
* pour toutes Les lignes du fichier 

+ decompiler et Lister 

* Historique : 

*  86/05/.. : JPB conception & codage 
* 


88/01/10 : PD & JT ajout indentation & fichier 


ko ee de he he he ee he ee ee AH ee ee ee Re 


REL(5) =PBLSTd 
REL(5) =PBLSTp 


NOUS EN AVONS 


La coopérative du Club vous propose : 


- de lecteurs de cartes magnétiques pour HP-71, neufs, dans leur boîte d’origine, avec 5 cartes magnétiques, 
pour 500 F (port compris), 

- des anciens numéros de JPC, au prix de 40 F + 7,40 F de frais d’affranchissement, 

- d’unc'année complète de numéros de JPC (février à janvier) pour 300 F (offre spéciale) port compris, 

- des I.D.S. du module Forth / Assembleur (listing interne commenté par HP) pour 250 F (port compris), 

- des VASM pour HP-41 (listings des Roms internes commenté par HP) pour 300 F (port compris), 

- de manuels de service du HP-41 au prix de 75 F (port compris), 

- de manuels de service du HP-75 au prix de 75 F (port compris). 


En outre, le module JPC Rom pour HP-71 est disponible. Vous nous adressez votre Eprom CMT (de 
préférence 64 Ko), et nous la programmons suivant une des options ci-dessous : 

- JPC Rom + Manuel, pour 600 F, 

- JPC Rom + Manuel + vos propres programmes, pour 800 F. 


Si vous souhaitez des renseignements complémentaires, n’hésitez pas à nous contacter. 


VOUS EN VOULEZ 


Nom : 
Prénom : 
No de membre : 
Adresse : 
Commande : 

Qté Prix Unitaire Prix Total 
Lecteur de cartes pour HP-71 x 500 FF 
anciens numéros de JPC x 47,40 FF 
année complète de JPC x 300 (x 
1.D.S. du module Forth x 250 FF 
V.A.S.M. x 300 FF 
Manuel de service pour HP-41 x 75 FF 
Manuel de service pour HP-75 x 75 FF 
JPC Rom + Manuel x 600 FF 
JPC Rom + Manuel + vos propres programmes x 800 FF 

Total FF 


Préciser éventuellement Les 
numéros de JPC commandés : 


PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 
Ron Le RC OU RE) RATIO PNEUS EME CL AE NE ETES ANSE 
Prénom |_[_|_|_1_1_1_1_1_1_1_1_1_1_1_1_1_1 Date de naissance |_[_1/|_1_1/1_1_ 
AGTRRSS TRE EROTISME PONTS LS PPRSSRE RS PAL TN 
CRIER EE POLE TR RER TE SES PO AE 
PAR EE PL PORTA RSR EE REP PE EEE 
LEE SET A ALT SR ET SRE PE POLIS LE ETS 
Code Postal |_[_[_1_[_1 Ville [_1_1_1_ICTUITUIILILILICILILILILILILILILIL IL 
Téléphone Domicile |_[_[_|_1_[_1_1_1_1_1_121 Bureau [_[_1_1_1 112121212112] 


Profession 
Intérêts 


Matériel HP en votre possession 


Autre matériel informatique 


Comment avez-vous connu PPC Paris ? 


Que recherchez-vous au sein de PPC Paris ? 


La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux Libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services ou organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
Le concernant. 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir Le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans Le Journal de liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de la part des 
dirigeants de PPC-Paris. 


Date |_|_[/|_1[_1/191_1_] 
Signature, précédée de La mention "Lu et Approuvé!! 


Le montant de La cotisation s'élève à 350.00 F pour un an. 
Etudiants: 300.00 F (justificatif indispensable) 


Paiement effectué Le |_|_|/|_|_[/19|_|[_| à l'ordre de PPC Paris, 
par [ ] chèque bancaire, [ ] chèque postal ou [ ] mandat Lettre 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez pas sous quelle forme "l’équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette). Soyez sans crainte, nous vous 
retournerons vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP) : 

""" centre un titre, par exemple : 
"TITRE 


"\'(CHRS$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous en 
doutez, intéressera certains des membres du Club. Surtout si vous vous sentez 
débutant. Les articles pour débutants écrits par des débutants sont ceux qui 
manquent le plus. Fin de paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de caractères Romans. Les 


possesseurs de HP71 utiliseront les redéfinitions de touches ci-dessous, ainsi que 
le fichier CHARLEX listé dans le coin des Lhex. 


Jean-Jacques Dhénin (177) 


DEF KEY ‘fW!, CHR$(197); (é) 
DEF KEY 'fE', CHR$(193); (ê) 
DEF KEY 'fR', CHR$(201); (è) 
DEF KEY ‘fY!, CHR$(203); (ù) 
DEF KEY ‘fU', CHR$(195); çà) 
DEF KEY ‘fl!, CHR$(209); «i) 
DEF KEY 'fO!, CHR$(194); (ô) 
DEF KEY ‘f/!, CHR$(92); (0 
DEF KEY ‘fA!, CHR$(192); (à) 
DEF KEY 'fS', CHR$(200); (à) 
DEF KEY ‘fD!, CHR$(205); (ë) 
DEF KEY ‘fJ!, CHR$(207); (ü) 
DEF KEY ‘fK!, CHR$(221); «i) 
DEF KEY ‘f*1, CHR$(124); (a 


DEF KEY 'fC', CHR$(181); (ç) 








PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n’étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de J PONS 
sera en principe toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l'accès en métro, trois possibilités s’offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ab, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions. À bon entendeur, salut ! 


Les dates des prochaines réunions sont : 
Samedi 16 avril 1988 

Samedi 7 mai 1988 

Samedi 4 juin 1988 






Pierre David (37) $ \ote. EN ais 


etre en rererd 
; (A ® 
à la reunion 


de: FFQ, 











=PBLSTe LC(2) 


C=PRINTt)*16+#F 


bserR 


GOTO bserr 


GOTO LISTO5 x <line#> [ , <line#> ] 
LIST10 D1=(5) LDEB 
bserr GOVLNG =BSERR GOSUB getli# 
DATI=A A <line# 1> 
REL(5) =DBLSTd D1=D1+ (LFIN)-(LDEB) 
REL(5) =DBLSTP DATI=A A <line# 2> 
=DBLSTe LC(2) (C=DISPt)*16+#F GOSUB getli# 
* Initialiser La sortie standard GOC Loop pas de <line# 2> 
LISTOS D1=(5) =MLFFLG Destination du xBLIST DATI=A A 
DATI=C B D1=D1- (LFIN)-(LDEB) 
* Initialisation des variables globales C=DATI A CA) := <line# 1> 
*  INDVAL = O0 (pas d'indentation) 5 q ?C<=A A 1 <= 2 
*  CURIND = 0 (indentation courante = 0) 5 q GOYES Loop oui : ok 
*  OUTYPE = 0 (sortie std et pas fichier) 1 q invarg GOVLNG =IVAERR non (ah bon ?) 
D1=(5) INDVAL 
c=0 W * INDENT <exp num> 
DATI=C 11 LIST20 D0=D0+ 6 sauter tXWORD id tINDENT 
* LDEB = Ligne de debut GOSBVL =EXPEXC 
* LFIN = Ligne de fin GOSBVL =RNDAHX 
D1=(2) LDEB GONC invarg  negatif 
C=C+1 À D1=(5) INDVAL 
DATI=C A LDEB := 0001 par defaut DATI=A A 
D1=D1+ (LFIN)-(LDEB) GOTO Loop 
LCHEX 9999 
DATI=C A LFIN := 0999 par defaut * TO <filespec> 
LIST30 DO=D0+ 2 
D1=(2) INDARM  INDARM, INDCOU, INDLIG, GOSBVL =FSPECx specificateur valide ? 
C=0 W ... SAUTAV et SAUTAP GOC Bserr non 
DATI=C 7 . := 0 * Cy = 0 : mainframe recognisable file specifier found 
* Chercher l'adresse du fichier courant * A(W) = file name 
D1=(4) =CURRST * D(S) = #F if device not specified 
C=DATI A * D(B) = details sur Le port 
D1=(4) INFILE D1=(5) =STMTRO sauvegardes 
DAT1=C A INFILE := * debut fichier C=D U Sauvegarde de D(W) (pour CRETF+) 
DATI=C W 
Loop A=DATO B A(B) := token courant D1=D1+ 16 
GOSBVL =EOLXCK DATI=A W Sauvegarde du nom du fichier 
GONC Loop10 
GOTO endlop Sortie si EOL trouve GOSBVL =FINDF+ Find file 
* A(W) = B(W) = file name 
Loop10 GOSBVL =FINDA * Cy = 0 : file found 
CON(2) =tCOMMA <line#> * Cy = 1 : file not found 
REL(3) LIST10 GoC LIST32 fichier non trouve : ok 
CON(2) =tXWORD INDENT <exp num> LC(4) =eFEXST "File Exists! / Beeeeeep ! 
REL(3) LIST20 Bserr GOTO bserr 
CON(2) =tTO TO <filespec> 
REL(3) LIST30 LIST32 D1=(5) OUTYPE 
NIBHEX 00 LOC) 1 
* <filespec> DATI=C P Sortie := fichier 
GOSBVL =FSPECx specificateur valide ? GOTO Loop 
GOC bserR non 
GOSBVL =FINDF+ trouve Le fichier * Verification du type et des protections du 
GOC bserR non trouve * fichier a lister. 
CD1EX C(A) := ” file start endlop D0=(5) INFILE 
D1=(5) INFILE C=DATO A 
DATI=C A INFILE := ” file start D1=C 
GOTO Loop D1=D1+ (=oFTYPh)-1 
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A=DAT1 A 


ASR A ACA) := file type 

D1=D1- (=oFTYPh)-1 

GOSBVL =BASCHA BASIC ? 

GOC bsErr Non : "Invalid File Type! 
GOSBVL =GETPR1 PRIVATE ? 

GOC bsErr Oui : “File Protect! 


* D1 = “ file type 


* Preparer Les pointeurs 


D1=D1+ 
CD1EX 
D1=C 
A=DAT1 A 
C=C+A À 
D0O=(2) 
DATO=C A 
D=C A 
DO=(2) 
A=DATO A 
B=A A 
D1=D1+ 
CD1EX 
D1=C 
D1=D1+ =[EOL 
A=0 A 
GOSBVL =FINDLO 
GOC Lst10 
?2ST=0 0 

GOYES Lst10 
GOTO nxtstm 
GOTO 


bsErr bserr 


Lst10 D0=(5) 
CD1EX 
DATO=C A 
* Creation du fichier a 
* dans STMTRO/1 pendant 
* necessaire. 
DO=(2) OUTYPE 
A=DATO S 
?2A=0 S 
GOYES nocret 
D1=(5) =STMTRO 
C=DATI W 
D=C W 
C=0 A 
LC(2) 37+4 
GOSBVL =CRETF+ 
GoC bsErr 
C=R1 
D1=(5) OUTHDR 
DATI=C A 
D1=(5) =STMTRI 
A=DATI W 
D1=C 
DAT1=A W 


INFILE 
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(=0FLENh)-(=0FTYPh) 


ACA) : 


REL(5) FiLeNd 


D(A) := * fin fichier 


AÇA) := <linel #> 


(=oBSsod)-(=LEOL) 


DO = * Line # (ere ligne) 
La doc ne l'indique pas 
Supporte 


IL existe un numero de ligne 
plus grand que <line1 #> 


INFILE := * line# courant 
partir des elements stockes 
"TO <filespec>!"! si 


Restaurer pour CRETF+ 


header + EOF-mark 

Le Lex ne doit pas bouger 
Probleme a La creation 

C(A) := adresse du header 
Header du fichier de sortie 


Nom du fichier 


D1=D1+ 16 
LCHEX 400001 
DATI=C 6 
D1=D1+ 16 
D1=D1+ 5 
* EOF-Mark 

C=0 A 
C=C-1 A 
DATI=C 4 


D1 = ” file type 
text + copy code 


CD1EX 

D1=(5) OUTADR 

DATI=C A 
nocret 


MOR HOMME ke he he he ee he he ee HA A A CAR A 


* Lst100 


* 


c'est a dire tests de sortie 
Entree : - 
Sortie : 
si sortie necessaire 
alors sortie par NXTSTM 
sinon D1 = * <line #> 
fin si 
Detail : 
test 1 : 


OÙ OÙ Ù # # # * * 


EOF ? 


test 3 : [ATTN] ? 
Appelle : CK!ON", NXTSTM 
* Historique : 
* 88/01/10 : PD & JT conception & codage 


* * *#  * 


Mk he ee he eh he he ee he he ee he ee He A A ee 


Lst100 
* 1 : atteint EOF ? 
DO=(5) INFILE 
A=DATO À 
DO=(2) INEND 
C=DATO A 
?2A>=C À 
GOYES nxtstm 
atteint Ligne > ligne fin ? 
D1=A D1 := * line# 
A=0 A 
A=DAT1 4 
DO=(2) LFIN 
C=DATO A 
2A>C A 
GOYES nxtstm 
[ATTN] ? 
CD1EX 
GOSBVL =CK!'ON!! 
D1=C 
GOC Lst110 
nxtstm GOVLNG =NXTSTM 


ACA) := * Line# 


CCA) := * FiLeNd 


"2, 


ACA) := line# 


NS s 


D1 := * fin du fichier 


But : debut de La boucle principale de D/PBLIST 


test 2 : no ligne > no derniere ligne a Lister 


Ok on a passe tous Les tests 


Ve he he he he eee He PP he ee he ee eee eh he ee 


* Lst110 

* 

* But : analyse du premier statement et 
*  decompilation de La Ligne. 

* Entree : 

*__- D1 = * <line #> 

* Sortie : 

* - (OUTBS..AVMEMS) = Ligne decompile 
” et indentation faite 

* Appelle : gettok, LDCM10 


he he he he he oh he eee he he he he he eee he eee he eh ee ee ee ee 


* Ok, on peut y aller 
* D1 = * Line# 
Lst110 D1=D1+ 2 D1 := * Stlen - 2 
GOSUB gettok 


B=A B B(B) := classe reconnue 
* Analyse du premier statement pour voir s'il faut : 
* - indenter avant 
* - sauter une ligne avant 
* - marquer un SUB 


* Indentation avant ? 


C=R1 C(A) := indentation avant 
?2C=0 A 
GOYES Lst120 


* il faut indenter 


D0=(5) INDCOU  Indentation courante 


A=DATO B 

A=A-C B 

GONC Lst118 Ok, indentation valide 
A=0 B Indentation := 0 


Lst118 DATO=A B 


* Cas autre que DATA ? 
* 


* Si token = DATA 


Nouvelle indentation 


* alors 
; on est a l'interieur, on ne fait rien 
sinon 


# 


si on etait avant a l'interieur de DATA 


* 


alors 
on n'est plus dans des DATA (INDARM := 0) 
sauter une Ligne avant (SAUTAV := 1) 
sinon 


* * * * 


cas Le plus frequent, on ne fait rien 
* fin si 


* fin si 
Lst120 A=B A A(B) := classe du token 
LC(2) ciDATA 
?A=C B 
GOYES [st122 cas "DATA!" 


DO=(5) INDARM 


A=DATO 1 A(O) = 0, inDATA ou inREM 


LC(1) inDATA On avait DATA avant ? 
?2A#C P 
GOYES Lst122 Non : on ne fait rien (ah..) 
c=0 A A(O) := O0 (no inDATA) 
DATO=C 1 INDARM := 0 
DO=(2) SAUTAV 
C=C+1 À C0) := 1 
DATO=C 1 

* Si (INDARM = inREM) && (classe # cLREM) 

* alors 

* INDARM := 0 

* fin si 

Lst122 DO=(2) INDARM 

A=DATO P 
LC(1) inREM 
?2A#C P 
GOYES Lst125 INDARM # inREM 
LC(2) clREM 
?2C=B B 
GOYES Lst125 classe = clREM 
c=0 A 
DATO=C P INDARM := 0 


he he ee he he he ee he ee ee HA A A Re 


* Y-a-t'il des cas particuliers a traiter ? 
Dh he he he he he he he he he he he ee eee ee he ee RAR 


Lst125 A=B A A(B) := classe du token 
GOSBVL =FINDA 
CON(2) cLSUB SUB 
REL(3) L1SUB 
CON(2) clDEF1 
REL(3) L'DEF1 
CON(2) clDEF2 
REL(3) L'IDEF2 
CON(2) clDATA DATA 
REL(3) L'IDATA 
CON(2) clLBL 
REL(3) L'ILBL 
NIBHEX 00 
GOTO Lst130 


DEF mono-ligne 


DEF multi-ligne 


<label> 


Pas de traitement special 
L1SUB D1=(5) INDCOU  Indentation := 0 
C=0 B 
DATI=C B 
* sauter une ligne 
GOSUB sautln 
* une ligne de !-! 


D1=(5) =OUTBS Debut de La Ligne 


C=DATI À 

D1=C D1 := * debut ligne 
LOASC lassssres ; 

A=C W ACW) := pattern 

c=0 A 
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LC(2) 8*8*2 64 1-1 
GOSBVL =STUFF  Remplissage de 64 !-! 


CD1EX C(A) := adresse de fin 
D1=(5) =AVMEMS 
DAT1=C A AVMEMS := fin 


GOSUB print 
GOTO liskip et terminer en sautant 


L'1DEF1 A=DATI B 
LC(2) =tEOL 
?2A#C B 
GOYES Lst130 DEF + autre chose 
D1=(5) SAUTAP Sauter apres 
LC(1) 1 
DATI=C 1 Sauter une ligne apres 
GONC liskip B.E.T. 


A(B) := tEOL ? 


UIDATA D1=(5) INDARM DATA ou REM ? 
A=DAT1 1 
LC(1)  inDATA 
DATI=C 1 INDARM := inDATA 
2A#C P 
GOYES liskip Premier DATA 
GOTO Lst130 pas de saut 


L'IDEF2 

L'ILBL 

Liskip D1=(5) SAUTAV 
LC(1) 1 1 est different de 0 
DATI=C P Sauter une ligne 


GOTO Lst130 


* Sauter une ligne ? 
Lst130 D0O=(5) SAUTAV Sauter avant ? 
A=DATO S 
?2A=0 S Sauter la ligne ? 
GOYES Lst140 Non 
GOSUB sautln Sauter une Ligne 


* Figer l'indentation courante 
Lst140 D0=(5) INDCOU  Indentation courante 
A=0 W 
A=DATO B 


DO=(2) INDVAL Valeur de l'indentation 
C=0 w 
C=DATO A 


GOSBVL =MPY A,B,C := Ind. en octets 


C=C+C A Indentation en quartets 
DO=(2) TMP 
DATO=C A TMP := deplacement en q. 


* On voudrait C(A) quartets en plus. On peut ? 
GOSBVL =MEMCKL Memory Check with Leeway 
GONC Lst145 Oui : on continue 


GOTO  bserr Non : Insufficient Memory 


* B(A) := deplacement en quartets 
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Lst145 DO=(4) =OUTBS 


C=DATO A CCA) := OUTBS original 
RSTK=C RSTK := OUTBS original 
D1=C D1 := start of area 
LCASC ! ! 
A=C W ACW) := pattern a stuffer 
C=B A CCA) := longueur en quartets 
GOSBVL =STUFF 
CD1EX C(A) := pseudo OUTBS 

* Laisser de La place pour Le no de Ligne 
DO=C DO := * pseudo OUTBS 
LCASC ! . 
DATO=C 6 


* Remettre D1 sur La Ligne (<line #>) 
D1=(5) INFILE 
C=DAT1I A 
D1=C D1 := * <line #> 
A=0 A 
A=DAT1 4 AÇA) : 
LCHEX 01000 
?2A>=C À 
GOYES Lst160 
CSR A CCA) := 100 
?2A>=C A 
GOYES Lst151 1 blanc 
CSR A C(A) := 10 
?2A>=C A 
GOYES Lst152 2 blancs 
DO=D0+ 2 
Lst152 DO=D0+ 2 
Lst151 DO=D0+ 2 
Lst160 CDOEX 
DO=(5) =OUTBS 
DATO=C A 
* D1 = * Line# 
* OUTBS decale pour LDCM10 
GOSBVL =LDCM10 Comme pour LIST 
* RO = ” past tEOL 
* B(A) = longueur en octets 
* OUTBS collapsed 
C=RSTK C(A) := OUTBS original 
* Decaler Le numero de Ligne et Le remettre 
* avant l'indentation 


no de Ligne 


D=C A D(A) := OUTBS original 
D1=(5) TMP juste avant no ligne 
A=DAT1 À 

A=A+C A ACA) := * no ligne 
DO=A DO := * no Ligne 

D1=C D1 := * OUTBS original 
A=DATO 8 Lire no de ligne 
LCASC ! | 

DATO=C 8 

DATI=A 8 Nouveau no Ligne 

C=D A C(A) := OUTBS original 


* Placer AVMEMS a La bonne valeur 
D1=(5) =OUTBS  OUTBS modifie 


* Traitement du premier 


* 


* - indentation !'apres!! 


* Cas particulier du IF 


Lst165 


* “qu ? 


Lst170 


A=DAT1 À 
DAT1=C A 
A=A+B A 
A=A+B A 
D1=D1+ 5 
DATI=A A 


D0O=(5) INFILE 
A=DATO A 
D1=A 

D1=D1+ 2 
GOSUB gettok 
B=A B 


LC(2) clIF 
?A#C B 
GOYES Lst165 
GOTO Lst700 


C=R2 
?C=0 A 
GOYES Lst170 


DO=(2) INDCOU 
A=DATO B 
A=A+C B 
DATO=A B 


LCC2) clREM 
?B#C B 
GOYES Lst190 


OUTBS original 


=AVMEMS 
nouveau AVMEMS 
token a nouveau 


D1 := * <line #> 
A nouveau Le 1er token 


B(A) := classe du token 
? 


Non : on continue 


Ignorer Le reste de la Ligne 


C(A) := indentation ‘apres! 


Pas d'indentation 


A(B) := indentation courante 


Rentrer dans La boucle 


* Sauver D1 pour etre remis apres 


* D1 


CD1EX 
RSTK=C 


D1=(5) =OUTBS 
C=DATI A 
D1=C 


RSTK := D1 


:= * no Ligne dans La chaine decompilee 


D1 := * no ligne 


* Mettre d'office 4 blancs 


LCASC ! t 
DAT1=C 4*2 


* Mettre un !-! 7? 


Ust180 
Lst182 


D1=D1+ 3*2 
DO=(2) INDARM 
A=DATO P 
LC(1) inREM 
DATO=C P 

?2A=C P 
GOYES Lst180 
LCASC !-! 
DATI=C B 
LCASC ©!!! 
A=DAT1 B 

2A=C B 
GOYES Lst185 
D1=D1+ 2 


D1 := * ('-! eventuel) 


A(0O) := 0, inDATA où inREM 


INDARM := inREM 
Deja une REM ? 
Oui : ne rien faire 


Non : ajouter un !-! 


GONC lst182 B.E.T. 

Lst185 D1=D1+ 2+2 D1 := * debut du commentaire 
AD1EX ACA) := start of source 
D1=A 
D1=D1- 2+2 D1 := start of dest 


GOSBVL =MOVEUA AVMEMS := end of source 


DO=(5) =AVMEMS 


CD1EX C(A) := end of dest 
DATO=C À 

C=RSTK restaurer D1 

D1=C 


Lst190 


He he he eh de eee he he ee he he he he eee ee eee Re 


* Debut de La boucle "dans La Ligne" 

* 

But : explorer Les statements entre le deuxieme et 
Le dernier de La ligne courante. 

Entree : 
- Di 

* Sortie : 

* _- D1 * tEOL de La Ligne courante 

* Historique : 

* 88/01/24 : PD & JT conception & codage 


He he he he he he he he he he he eee he he he ee eh he eh he he OR 


Æ *# + + 


* Stlen - 2 du deuxieme Statement 


* Ce Lst530 est une ruse (voir en fin de boucle) 
Lst530 


Lst500 GOSUB gettok 
B=A B BA) := classe du token 
GOC Lst900 
LCC2) clIF IF standard ? 
?2A=C B 
GOYES Lst700 Ignorer Le reste de La ligne 


* Calculer La nouvelle indentation 
DO=(5) INDCOU 
C=DATO B C(A) := indentation courante 
A=R1 
C=C-A B 
GONC Lst510 
C=0 B 

Lst510 A=R2 

C=C+A B 
DATO=C B 

* Cas particuliers ? 
LC(2) clsuB 
?B#C B 
GOYES Lst520 


indentation avant (<= 0) 


Pas < 0 


indentation apres (>= 0) 


* SUB 
indentation := R2 
BiE.T. 


DATO=A B 

GONC  Lst530 
Ust520 LC(2) cLNDDF 

?B#C B 

GOYES Lst530 
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* END DEF 


A=DATI B A(B) = tEOL ? 

LC(2) =tEOL 

2A#C B 

GOYES Lst530 

LC(1) 1 

DO=(2) SAUTAP 

DATO=C 1 Sauter apres := vrai 


* Le Lst530 qui suit a ete deplace en debut de la 
* boucle pour eviter Le GOYES -> GOTO intempestif. 
* Lst530 

GOTO  Lst500 


Lst700 D1=(5) INFILE 
A=DAT1 A 
D1=A 
GOSBVL =NXTLIN D1 := ” past tEOL 
GONC lst910 B.E.T. 
* Attention : Le code continue en sequence !11 


ACA) := ” <line #> 


KR le he he he he he eee he ee eh eh ee ee A ee ee 


* Fin de La boucle ‘dans La ligne" 
* 


* But : recuperer le pointeur dans Le flot tokenise 


* pour La Ligne suivante, et iterer 

* Entree : 

* + D1 = * tEOL de La Ligne courante 

* Sortie : 

* - INFILE = * <line #> de La ligne suivante 
* Historique : 

* 


88/01/24 : PD & JT conception & codage 


KOKRHOHN he eh he he ke he eh ee ee eh ee ee he eee A 


Lst900 D1=D1+ 2 D1 := * <line #> Ligne suiv. 
Lst910 CD1EX CCA) := ” <line #> 

D1=(5) INFILE 

DATI=C A Nouvelle ligne 


* Prepare La ligne suivante 
* Reporter Le “saut apres! sur "saut avant! et 
* effacer "saut apres! 
D1=(5) SAUTAP 
A=DATI S 
C=0 S 
DATI=C S 
D1=(2) SAUTAV 
DATI=A S 
GOSUB print 
GOTO Lst100 


ROMAN HA De A he he he he ee 0 eh ee ee A A Re 


* SOUS -PROGRAMMES 


AONAOK He H Dhe eM he  e  e  e e  O  RORRR RRRRORRRe 


KAARÉRRARRRRRARRRRÉARRARRARRÉRRA RÉ RAR ARRRRÉA ARR 


* sautln 
* 


* But : imprimer une ligne vide 
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Entree : - 
Sortie : - 
Abime : A-D, R3 
Appelle : OBCOLL, print (tombe dedans) 
Niveaux : 
Historique : 
88/01/24 : PD & JT conception & codage 


ARMOR  h  H AAAH  HHA 


8 #6 #4 # + + + 


sautln GOSBVL =O0BCOLL 
* Attention : Le code continue !1!1 


MH He he he he he ee he ee A ee ee eh ee ee ee 


print 


* 

* 

* But : imprimer La Ligne comprise entre OUTBS et 
*  AVMEMS sur Le DISPLAY, Le PRINTER ou dans un 

* fichier selon La valeur de OUTYPE. 

* Entree : 

" - (OUTBS..AVMEMS) = La Ligne 

* Sortie : - 

* Abime : A-D, R3 

* Appelle : CKINFO, SNDWD+, SENDEL, SWPBYT, RPLLIN, 
*  MOVED2 

* Niveaux : 

* Detail : l'execution de sautln continue en direct 
* Historique : 

* 88/01/24 : PD & JT isolement dans un sub 


He he 2h 3h he he ee ee He ee ee HA A ee ee ee ee ee 


print DO=(5) OUTYPE 
A=DATO S 
2A#0 S 
GOYES prnt50 
* Impression sur DISPLAY ou PRINTER 
GOSBVL =CKINFO Prepare HPIL pour l'envoi 
DO=(4) =AVMEMS 


0 : std, 1 : fichier 


A=DATO A 

DO=D0- 5 OUTBS 

C=DATO A C(A) := ” chaine 

A=A-C A ACA) := longueur en quartets 
B=0 u 

B=A A 

BSRB B(A) := longueur en octets 


ST=1 =InhEOL Inhibit EOL pour Le cas ou 
GOSBVL =SNDWD+ Envoi proprement dit 
GOVLNG =SENDEL EOL 


* Impression dans un fichier 
prnt50 DO=(4) =AVMEMS 
* Insertion de La longueur LIF 


A=DATO A ACA) := end of source 
D1=A 

D1=D1+ 4 D1 := end of dest 
DO=D0- 5 DO=(5) OUTBS 

C=DATO A C(A) := start of source 


GOSBVL =MOVED2 
* Calculer le padding LIF 


DO=(5) =AVMEMS 


A=0 W 

A=DATO A 

D0=D0- 5 OUTBS 

C=DATO A 

A=A-C A Longueur en quartets 
ASRB Longueur en octets 
B=A A Sauvegarde 

GOSBVL =SWPBYT 

C=DATO A CCA) := (OUTBS) 
D1=C D1 := * LIF Length 
DATI=A 4 

SB=0 

BSRB 

A=0 A Longueur a ajouter 
?SB=0 


GOYES prnté0 Longueur paire 


A=A+1 A 1 octet a ajouter 

prnté0 C=0 A 
LC(1) 4 
A=A+A À 
A=A+C A Longueur totale a ajouter 
DO=D0+ 5 AVMEMS 
C=DATO A 
C=C+A A 
DATO=C A AVMEMS + 4 où 6 

* Insertion dans le fichier 

C=0 A 
R3=C R3 := longueur vieille ligne 
DO=(5) OUTHDR 
C=DATO A C(A) := ” file header 
DO=(2) OUTADR 
A=DATO A ACA) := ” end of old line 
GOSBVL =RPLLIN Ne peut pas bouger 
GoC bSerr 


* A(A) = end+1 of replaced Line in file 
DO=(5) OUTADR 
DATO=A A 
RTN 

bSerr GOTO bserr 


eh he he he ee he he he eh he eh he eo he ee he eh ee he ee 


getli# 


* 

* 

* But : evaluer un numero de Ligne optionnel 
* Entree : 

* _- DO = * tCOMMA precedant <line #> 
* Sortie : 

* Cy = 1 : pas de <line #> 

* Cy=0: 

* - ACÇA) = numero de ligne en BCD 

* - DO reactualise 

* Niveaux : 0 

* Utilise : C(B), A(A) 

* Historique : 

* _86/05/.. : JPB conception & codage 

* 88/01/10 : PD & JT modifications & documentation 


ee he He ee ee He ee he he he he eee ee ee eee eee ee eee ee eee 


getli# A=DATO B 
LC(2) =tCOMMA 
?2A#C B 
RTNYES 
DO=D0+ 
A=0 
A=DATO 
DO=D0+ 
RTN Cy = 0 a cause de DO=D0+ 4 


EF 5 > D 


ok he he ee ee he he he eh eee he he ee he he ee he ee A ee ee eee ee 


gettok 


* 
* 
* But : classer Le token pointe par D1 
* Entree : 
wi | #0) 
* Sortie 
* Cy = 1 : EOL trouvee 
Cy = EOL non trouvee 
- D1 = * Statement terminator 
- A(B) = classe du token 
R1 = indentation avant 
R2 = indentation apres 
Niveaux : 1 
Utilise : 
Appelle : FINDA 
Historique : 
88/01/23 : PD & JT & JJD conception & codage 


He he eh he ee he he he he ee ee eh he he eh he AOC RAA RAA 


“ Stlen - 2 du token a classer 


© = + 
. 


* *Ù #Ù #  * 


* Ù * *  * 


gettok C=0 W 
R1=C 
R2=C 
A=DATI B 
LC(2) =tEOL 
?2A=C B 
RTNYES 
D1=D1+ 2 D1 := * Stlen 
C=0 A 
C=DATI B C(A) := Stlen 
AD1EX 
C=C+A AÀ C(A) := ”* Stlen - 2 suivant 
D1=A D1 := * Stlen du courant 
RSTK=C RSTK := ” tEOL ou ta ou ... 
D1=D1+ 2 D1 = * token courant 
A=DATI B 


GOSBVL =FINDA 

CON(2) =tXWORD  XWORD 
REL(3) gtXWRD 

CON(2) =tFOR FOR 
REL(3) gtFOR 

CON(2) =tNEXT  NEXT 
REL(3) gtNEXT 

CON(2) =tSUB SUB 
REL(3) gtSUB 

CON(2) =tDEF DEF FN 
REL(3) gtDEF 
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CON(2) =tDATA DATA 
REL(3) gtDATA 

CON(2) =tLBLST !...!: 
REL(3) gtLBL 

CON(2) =tEND END 
REL(3) gtND 

CON(2) =tENDDF END DEF 
REL(3) gtNDDF 

CON(2) =tENDSB END SUB 
REL(3) gtNDSB 

CON(2) =tl! ! 
REL(3) gtREM 
CONC2) =tIF 
REL(3) gtiF 
NIBHEX 00 


IF mono-ligne (standard) 


gtrien GOTO  gtRIEN 


gtXWRD D1=D1+ 2 
A=DATI B 
LC(2) =id 
?AHC 
GOYES gtrien 


D1=D1+ 2 D1 := * toooooken 
A=DAT1 B A(B) := token 


GOSBVL =FINDA 

CON(2) =tWHILE WHILE 
REL(3) gtWHIL 

CON(2) =tLOOP  LOOP 
REL(3) gtLOOP 

CON(2) =tREPEAT REPEAT 
REL(3) gtREPT 

CON(2) =tUNTIL UNTIL 
REL(3) gtUNTL 
CON(2) =tiF2 
REL(3) gtiF2 
CON(2) =tELSE2 ELSE jpcrom 
REL(3) gtELS2 

CON(2) =tSELECT SELECT 
REL(3) gtSEL 

CON(2) =tCASE CASE 

REL(3) gtCASE 
CON(2) =tEND2 
REL(3) gtEND)j 
NIBHEX 00 
GOTO  gtRIEN 


IF jpcrom 


END IF/LOOP/SELECT/WHILE 


KRRÉARRRRRRRRERERÉRRRRÉRÉÉRRRRRÉRRRRÉRRÉRRR RAR RAR 


* indentation avant : 0 
* indentation apres : +1 


* 


* FOR, WHILE, LOOP, REPEAT, IF 


KORHOK HR RH ke He HR ROM Re Re 
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gtFOR 
gtiF2 
gtLOOP 
gtREPT 
gtWHIL C=0 A 
C=C+1 A 
R2=C indentation apres := 1 


GOTO gtRIEN Classe : normale 


He He ke he ee he he he he ee ee ee ee ee he ee ee he ee eee 


* indentation avant : -1 
* indentation apres : +1 
* 


* ELSE, CASE 


eh ee ee ee he he ee ee ee he eee eee ee ee 


gtCASE 

gtELS2 C=0 A 
C=C+1 À 
R1=C indentation avant := 1 
R2=C indentation apres := 1 


GOTO gtRIEN Classe : normale 


ARR HK e eeeHHe  h e  RR RR 


* indentation avant : 0 
* indentation apres : +2 
* 

* SELECT 


ORAN ee ee He ee ee eh he He Ce 


gtSEL C=0 A 
LC(1) 2 
R2=C indentation apres := 2 
GOTO gtRIEN Classe : normale 


gtENDj D1=D1+ 2 D1 = ” q de reconnaissance 


A=DATI B A(B) = token suivant 
GOSBVL =EOLXCK 
GOC gtND END WHILE 
* A(0) = quartet de reconnaissance 
LC(1) =qENDS 
2A=C PP 
GOYES gtNDSL END SELECT 


* END LOOP / IF 
* Attention : Le code continue !1!1! 


MH h Ok He ee ee he he he ee eh eh ee eee 


* indentation avant : -1 

* indentation apres : 0 

* 

* UNTIL, NEXT, END LOOP, END WHILE, 
* END IF, END, END SUB 


AO He he He he ke he he A ee Re 


gtND 

gtNDSB 

gtNEXT 

gtUNTL C=0 A 


C=C+1 À 
R1=C indentation avant := 1 


GOTO  gtRIEN Classe : normale 


HO hOR eM hehe e hee e e e he h  ehe he e he e eee e  e  e R  he 


* indentation avant : -2 


* indentation apres : 0 
* 


* END SELECT 


He he he he he he he eh eh ee eh ee he eh ee he he he he eee ee ee ee Re 


gtNDSL C=0 A 
LC(1) 2 
R1=C indentation avant := 2 
GOTO  gtRIEN Classe : normale 


KOHH EME ee He he he eh ee ee ee ee A ee 


* indentation avant : -1 


* indentation apres : 0 
* 


* Cas particulier 


* END DEF 


he he he he he oh he he eh eh eh ee eh eh eh he eee he ee he eee ee 


gtNDDF C=0 A 


C=C+1 A 

R1=C indentation avant := 1 
LC(2) cLNDDF Classe END DEF 

A=C B 


GOTO  gtok99 


KR eh he eh eee ee ee he he ee A 


indentation avant : 0 (en fait : cas particulier) 


* 

* indentation apres : +1 
* 
* Cas particulier 
* 
* 


SUB 


He he he he eh he he he eh He eh ee be ee ee A RAR 


gtSUB C=0 A 


C=C+1 À 

R2=C indentation apres := 1 
LC(2) clsuB Classe SUB 

A=C B 


GOTO  gtok99 


gtDEF D1=D1+ 7 
A=DATI B 
?2A=0 B 
GOYES gtDEF2 Multiligne 
* Attention : Le code continue 
* DEF FN mono-ligne 


A(B) := 0 si multi-ligne 


He ee he he ee he he he oh ee he he he ee eh ee eh he ee he ee eee eee eee eee 


* indentation avant : 0 
* indentation apres : 0 


* Cas particulier 
* 


* DEF mono-ligne 
NRRRRR UMR RÉ ÉRMÉ RÉ ÉÉÉRRRRRMURRRMRÉÉRRRRRRÉRAMRÉÉÉU 


gtDEF1 LC(2) clDEF1 
A=C B 
GOTO  gtok99 


DEF mono-ligne 


he he ee he ee ee eee eee eee eee he he he he he ee eee eee 


indentation avant : 0 


* 
* indentation apres : 1 
* 

* Cas particulier 

* 
* 


DEF multi-ligne 
Ne he he he ee ee he he ee ee ee he eee ee ee Re 


gtDEF2 C=0 A 


C=C+1 A 

R2=C Indentation apres := 1 
LC(2) clDEF2 DEF multi-ligne 

A=C B 


GOTO  gtok99 


He he ee ee ee he ee he he he he he ee AR AR 


* jndentation avant : 0 
* indentation apres : 0 
* 


* Cas particulier 
* 


* DATA 


he he he he he he ee he he ee eee ee ee ee ee A 


gtDATA LC(2) clDATA DATA 
A=C B 
GOTO  gtok99 


He he he he ee ke he he he eh ee eh ee he He CARRE 


* indentation avant : 0 
* indentation apres : 0 


Cas particulier 


# * *  * 


Ve he he he ee he he he eee he ee M ee he ee ARR AR 


gtLBL LC(2) clLBL Label 


A=C B 
GOTO  gtok99 


ee he he ee he he he ee he he ee ee ee ee ee ee ee he 


* indentation avant : 0 
indentation apres : 0 


* 
* 
* Cas particulier 
* 
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ra 


RORRROK eee he ee he ee ee ee ee he ee ee ee ee eee ee ee 


gtREM LC(2) clREM ! 
A=C B 
GOTO  gtok99 


ok he he he he he he he eh he eh eh ee he ee he ee ee ee eh ee ee ee ce 


* indentation avant : O0 
* indentation apres : 0 
* 


* Cas particulier 
* 


* IF mono-ligne (standard) 
HORMONE he ee he De he he he he ee ee he eee ee A A 


gtiF LC(2) cLIF IF standard 
A=C B 
GOTO  gtok99 


gtRIEN A=0 B 

gtok99 C=RSTK 
D1=C 
RTNCC 


NA he he he he he ee eh he he he le he eh he ee eee he he eee he ee ee ee ee he 


* RENUMREM 
* 
But : renumeroter Un programme Basic en tenant 
compte des remarques. 
Note : RENUMREM 100 , 10 , 200 , 500 
Ve Me ve ve 
registres -> RO R1  aR2 R3 
Historique : 
86/05/.. : JPB conception & codage 


NH he he he ee he eh he ee he ee he ee ee eh ee ee ee he eee ee ee ee 


 # * + #* # + 


REL(5) =RENUMd 

REL(5) =RENUMp 
=RENUMe CDOEX 

RO=C 

GOSUB  CHKPSF 

GOSUB GETSTe 

GOSBVL =PRSCOO 


RENOOS ST=1 1 
ST=1 2 
GOSBVL =RENSUB 
GOC RENO10 
D1=(5) =PCADDR 
C=R2 
DATI=C A 
GOSUB UPDCRL 
LC(2) =eSTMNF ‘Statement Not Found'! 
GOTO mferr 
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REN0O10 


RENO20 


REN100 


A=RO 
DO=A 
GOSUB LINE#1 
R2=A 


C=0 A 
C=C+1 À 

CSL A 

RO=C 

R1=C 

CSL A 

CSL A 

CSL A 

R3=C 

GOSUB  GETLN# 
Goc REN100 
RO=A 

GOSUB  GETLN# 
GOC REN100 
R1=A 

GOSUB  GETLN# 
GOC REN100 
C=A A 
ADOEX 

R2=A 

GOSBVL =FINDL 
?ST=0 0 


GOYES  RENO20 
GOTO nxtstm 


CD1EX 

CR2EX 

DO=C 

GOSUB GETLN# 
Goc REN100 
SETDEC 

P= 3 
A=A+1 WP 

P= 0 
SETHEX 

GOC REN100 
C=A A 
GOSBVL =FINDL 
A=0 A 
A=DAT1 4 
?2ST=1 0 
GOYES REN100 
R3=A 


GOSUB LINE#1 
CD1EX 

A=R2 

?2A=C A 

GOYES REN105 
DO=A 

D0=D0- 4 
GOSBVL =CPL#10 
C=0 A 
C=DAT1 4 


A=R0O 


2A>C A 

GOYES  REN105 

GOLONG invarg 
REN105 D1=(5) =CURREN 

C=DAT1 A 

D=C A 

C=R2 

D1=C 

C=0 A 

C=DATI 4 

DO=C 

C=RO 

RSTK=C 
REN110 C=R2 

D1=C 

A=R1 

B=A A 
REN120 CD1EX 

?2C>=D A 

GOYES ren170 

D1=C 

A=0 A 

A=DAT1 4 

C=R3 

?2A>=C À 

GOYES ren170 

A=RO 

?A<C A 

GOYES REN140 
REN130 SETHEX 

CDOEX 

RO=C 

c=0 A 

C=C+1 À 

R1=C 

GONC  REN110 


ren170 GOTO REN170 


he he he he he he he eh he eh eh ee ee ee de 


Æ OH OO ON OŸ OO *X *# # # *# 


ORGANIGRAMME DE REN140 a REN155: 


Entree: RSTK = Anc [Next REM Line#] 


RO = Nv [Next BASIC Line#] 
B(B] = Inc [Increment] 


We ON 4 te 


Ù Ù # # *# * 


# * * * 


* 


* 


HHHAHHHHH 
#REN 155# 
HHHHHHHHA FIN 


He he he oh he eve le he he he he he he eh ee eh eh ee ee ee he A 


* 


* 


ECRIRE NV 

REN140 DATI=A à 
D1=D1+ 6 
A=DATI B 
D1=01- 6 
LC(2) =t! 
?A=C B 
GOYES REN145 
LC(2) =tREM 
?2A=C B 
GOYES REN145 
A=RO 
C=RSTK 
C=A A 
SETDEC 
C=C+1 A 
RSTK=C 
GOTO 

ECRIRE Anc 

REN145 C=RSTK 
DATI=C 4 
SETDEC 
C=C+1 A 
RSTK=C 


REN150 


LINE# = Nv 


A[B] = token 


Ligne REM ? 
oui 


Ligne REM ? 
oui 
non: Anc = Nv+1 


C=Anc 
Line# = Anc 


Anc = Anc+i 
Sauvegarde Anc 


* On est toujours en DEC 


* Entree: A=Nv ; B=Inc 


A=RO 

P= 3 
?C<=A WP 
GOYES REN155 


REN150 A=A+B À 
RO=A 


A=NvV 


Anc <= Nv ? 
oui alors FIN 
; DEC 

Nv = Nv+Inc 
Sauve Nv 


* FIN: on remet tout en ordre pour REN160 


REN155 SETHEX 
P= 0 
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D1=D1+ 

C=0 
REN160 C=DAT1 
AD1EX 
A=A+C 
D1=A 
A=DAT1 
D1=D1+ 
?A#0 
GOYES 
GOTO 
REN170 C=RSTK 
ST=1 
ST=0 
GOSBVL 
GOLONG 


GETLN# A=DATO 
DO=D0+ 
LC(2) 
?A#C 
RTNYES 
A=0 
A=DATO 
DO=D0+ 
RTNCC 
LINE#1 D1=(5) 
C=DAT1 
D=C 
D1=D1- 
A=DAT1 
c=0 
LC(2) 
A=A+C 
D1=A 
RTN 
CHKPSF GOSUB 
GOSBVL 
GOC 
?2SB=0 
RTNYES 
GONC 
GETSTe GOSBVL 
RTNNC 
mferr GOVLNG 
UPDCRL D1=(5) 
C=DAT1 
D1=C 
D1=D1+ 
A=DAT1 
ASR 
LC(5) 
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4 D1 à tLEN 2AHC A 
A GOYES  UPDCR1 
GOSBVL =DO=PCA 
B GOSBVL =CPL#10 
C=DAT1 À 
A GONC  UPDCR3 
UPDCR1 C=0 A 
B UPDCR3 DO=(5) =CURRL 
2 DATO=C 4 Ver-Yr'iae 
p RTNCC der-t on 
REN160 END Vev mi -fuge 
REN120 © \Ver- (nine 
ee 
C O 
1 
2 
=RENSUB 
Y 
nxtstm N 
B 
2 
=tCOMMA 
k ver- cemt -qe 
à TovVisque 
4 ver 
4 
O 
=CURREN 
A 
A 
“ N 
A 
A 
=oFLSTr 
A 
GETSTe 
=GETPRO 
mferr 
mferr 
=GETSTC 
=MFERR 
=CURRST , 
A 
(=0FTYPh)-1 
A 
A 
=fBASIC 


DERIVEES SYMBOLIQUES 
(ACTE I QUINTE) 


L'intérêt suscité par le programme de Peter 
Ehrenberg et Volker Klann (JPC 44) est explicable 
parce qu’il représente une nouvelle façon de traiter 
des programmes écrits en Basic, la nouveauté 
consistant dans la reconnaissance d’une chaîne de 
caractères. La discussion qui suit suppose que vous 
avez tenu compte des observations faites par 
Dominique Marcaillou (JPC 47) et Thierry Besançon 
(IPC 49). L’observation de Bruno Gil (JPC 50) doit 
être considérée comme une variante de la ligne 1590 
pour le cas ou US$ est différent de X, sinon on 
introduit une multiplication inutile avec l’unité. 


La maladresse de la table des correspondances 
fonctions / dérivées est déterminée par le manque 
d’une instruction d’arrêt marquant qu’une certaine 
expression ne se trouve pas dans la table. Pour 
corriger cela, il faut introduire la ligne 1045 (voir 
programme) et, à ce moment, le bug mentionné par 
Thierry Besançon est éliminé. La présentation qui suit 
permettra aux intéressés de passer aux actes suivants. 


Le trait essentiel du programme est que l'analyse 
d’une expression se fait caractère par caractère. On 
distingue une série de sous programmes et de 
fonctions qui ont le but suivant : 


- SUCHEFKT contient la table des correspondances 
fonctions / dérivées. Il teste d’abord la présence dans 
la chaîne F$ d’une parenthèse ouvrante dans une 
position qui est différente de la première ou de la 
dernière de la chaîne F$. Puis on sépare la partie 
fonction V$ de la partie argument U$ et, comme 
généralement U$ peut être une fonction de X, on 
cherche d’abord la dérivée respective U1$ par un 
appel récursif (ligne 840). Si la fonction V$ est 
trouvée dans la table, on a sa dérivée F1$. 


- A fait le produit de F1$ et U1$ en testant les 2 cas 
singuliers U1$=0 et U1$=1 (fonction US$ constante 
ou réduite à X) 


L'indice O1 utilisé par SUCHEFKT permet 
d'identifier si l'expression de la dérivée doit être 
inversée ou prise avec le signe moins. 

- Pour O1=1, on fait le rapport U1$/F1$. 

- Pour O1=2, on fait le rapport avec signe changé. 

- Pour O1=3, on fait le produit. 

- Pour O1=4, on fait le produit avec signe changé. 


- EF rétablit, pour la fonction et sa dérivée, le signe 
moins en première position (signe qui a été supprimé 
à la ligne 660) 


- ABLUV est le sous programme appelé si on a 
positionné un opérateur algébrique. P étant le 
pointeur de l’opérateur algébrique dans la chaîne F$, 
on introduit une chaîne US$ postopérateur et une 
chaîne V$ préopérateur, U1$ et V1$ étant les dérivées 
respectives. Le sous programme relance l’appel de 
DIFF pour les deux sous chaînes et détermine donc 
les dérivées afférentes. En fonction de la valeur du 
pointeur O, on se branche aux sous programmes 
ADD, SUB, MUL, DIV ou POT qui associent les 
fonctions US$ et V$ et les dérivées suivant les règles 
connues : 


(u+v) =1 + (+ ou -) 
(uv) =uwv+uv 
(uv) = (uv-uv’)/v? 


(uŸy =vvuv 


- FNKS(T$,O) restitue la chaîne T$ ou met cette 
chaîne entre parenthèses si le premier caractère de 
T$ est *- ou si la chaîne T$ contient des opérateurs 
algébriques. Le paramètre O est un trieur des 
opérateurs. Ainsi O=3 permet de retenir uniquement 
+’ et” ; O=5 pour tout opérateur sauf ”” et pour la 
ligne 1430, il faut choisir O =6 afin qu’une puissance 
se trouvant au dénominateur soit mise entre 
parenthèses avant de prendre son carré. 


- FNN(T$) est une fonction qui retourne une valeur 0 
ou 1. La valeur 1 correspond à une chaîne T$ 
représentant une constante composée des chiffres. 
Dans ce cas, le programme débouche sur la ligne 710 
qui donne une dérivée nulle. Pour tout autre cas, 
incluant les cas manifestes d’erreur syntaxique comme 
par exemple T$=?’5.97, la fonction restitue la valeur 
0. Il faut aussi remarquer que le premier caractère 
alpha de la chaîne T$ rend FNN=0 et l’exploration de 
T$ est terminée. 


- MINPRIO analyse la présence des opérateurs 
algébriques et fait le test des correspondances des 
parenthèses ouvertes et fermées. La valeur du 
pointeur O est 1, 2, 3, 4 ou 5 en correspondance 
respective avec +, -, *, / ou”. Un autre pointeur P 
fixe la position dans la chaîne de l’opérateur 
algébrique. L'analyse de lexpression se fait 
entièrement, mais un seul opérateur algébrique est 
retenu. La priorité est accordée à l’opérateur ?+? ou 
7, qui constitue pour la dérivation un séparateur 
longitudinal. Les opérateurs ’* ou ?/’ sont retenus 
pour la position la plus à droite dans la chaîne et 
l'opérateur ”” est retenu si la sous chaîne examinée 
ne contient pas d’autres opérateurs. Il est important 
de souligner, et ceci constitue une qualité 
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remarquable du programme, la recherche des 
opérateurs algébriques ne se fait pas à l’intérieur des 
parenthèses. Dans le cadre de lexploitation 
séquentielle de l’expression donnée (F$=K$=T$), on 
trie d’abord l’opérateur algébrique d’après les règles 
précisées plus haut (le pointeur P marque cette 
position). 


Le programme démarre à l'étiquette START et on 
appelle MINPRIO. A la sortie de ce sous programme, 
l'indice K=0 montre la compatibilité des parenthèses. 
A la ligne 630, on teste qu’en première ou dernière 
position de la chaîne, il ne se trouve pas d’opérateur 
algébrique. Maintenant il faut distinguer trois cas 
essentiels : 


1) on a trouvé un opérateur algébrique (avec p>1) et 
dans ce cas on appelle ABLUV. 

2) on a trouvé un ’+? ou ’- en première position (la 
ligne 630 a exclu la possibilité de trouver d’autres 
opérateurs). Dans ce cas, on supprime le premier 
caractère de la chaîne F$ et on est ramené au cas 
trois. 

3) on n’a pas d’opérateur algébrique et alors on passe 
au test de la ligne 700 qui appelle la fonction 
ENN(F$). 


Le cas 3 est celui qui débouche sur l’appel du sous 
programme SUCHEFKT. Deux conditions doivent 
être remplies : la chaîne F$ ne doit pas contenir 
d’opérateur algébrique et elle doit contenir une 
parenthèse ouvrante positionnée (ligne 740). Il faut 
remarquer que la ligne 820 doit avoir le numéro 745, 
car la placer à lintérieur du sous programme 
SUCHEFKT n’est pas logique. 


La force majeure du programme est l'appel récursif 
de DIFF aux lignes 840, 1160 et 1180. Pour illustrer 
cet aspect et la façon dont le programme travaille, on 
va prendre comme exemple la fonction 
F$=(5*X+X"2)*(2*X/X"3) 


On introduit pour les sous chaînes pré- et 
postopérateurs US$ et V$ un indice à (US$); pour 
indiquer l’ordre des opérations séquentielles du 
programme. Les phases de la résolution sont : 


1) Les parenthèses de l'expression étant négligées, 
MINPRIO choisit l’opérateur ’* (position 9). On 
appelle ABLUV et on a (U$),=(5*X+X"2). 
Maintenant intervient le premier appel récursif de 
DIFF (ligne 1160). 

2) A cause des parenthèses, MINPRIO ne fait aucun 
tri et on passe à la ligne 740 qui fait P=1. Ensuite, à 
la ligne 760, les parenthèses sont éliminées, on a 
(U$),=5*X+X72 et on repasse à l'étiquette START. 
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3) MINPRIO choisit le ’+? (position 4), ABLUV 

détermine (U$),=5*X et un nouveau appel récursif 

suit. 

4) MINIPRIO détermine le ** (position 2) et, d’une 

façon semblable à la procédure présentée plus haut, 

ABLUV donne (U$),=5 et l'appel récursif établit 

cette fois (ligne 710) (U1$);=0 ; après le END de la 

ligne 730, on revient à la ligne 1170 et on détermine 

(V$);3=X . L'appel récursif s'arrête cette fois à la 

ligne 680, ce qui donne (V1$),=1 et après le END de la 

ligne 690, le retour se fait à la ligne 1190 et, parce que 

O=3 (*), on appelle MUL et on obtient (U1$),=5, 

puis on passe à la ligne 1170. 

5) Maintenant, on a (V$);=X"2 et un nouveau appel 

récursif suit, avec passage par ABLUV avec (U$),=X 

et (V$)4=2. Comme O=5, on se branche sur POT et 

on obtient (V1$),=2*X"1. En continuation, on 

revient à la ligne 1190 et, comme O=1, on va à ADD 

et on obtient (U1$),=5+2*X"1. On revient de 

nouveau à 1170 et cette fois, on a (V$),=(2*X/X73) 

et un autre appel récursif suit. 

6) On élimine les parenthèses et, conformément aux 

règles énoncées plus haut, on trie l'opérateur ?/’ et 

ABLUV détermine (U$),=2*X. 

7) Suivant la même procédure, on a (U$)s=2, 

(VS)5=X, (US),=X, (V$),=3 et on obtient : 

(VIS), =(2*X73-2*X73-2#X#3*X72)/(X73)"2 

et on revient pour la dernière fois à la ligne 1190 avec 

O=3 et les 4 fonctions : 

- (US$), =5*X-X72 

- (U1$),=5+2*X"1. 

- (V$),=2*X/X73 

- (V1$),= voir plus haut 

MUL donne le résultat final : 

F=(5+2*X71)*2*X/X73+ 
(5*X+X"2)*(2*X73-2*X*3*X72)/(X73)72 


Si vous avez une fonction trigonométrique, par 
exemple, SIN(5+A*X)/X, alors: 


1) On choisit le ?’/’ et ABLUV donne 
(U$),=SIN(S+A*X). Après l'appel récursif, on 
appelle d’abord SUCHEFKT et avant de chercher la 
correspondance fonctions dérivées, à la ligne 840 
comme l’argument (U$),=5+A*X est une fonction 
de X, l’appel récursif de cette ligne retourne la 
dérivée (U1$),=A. Ensuite, on détermine la fonction 
V$=SIN et la table (ligne 860) donne 
F1$=COS(5+A*X). 

2) On passe au sous programme À et, à la ligne 1080, 
on obtient A*COS(5+A*X) ; on revient à la ligne 
1170 avec O=4( /"}) et les quatre valeurs : 

- U$=SIN(5+A*X), U1$=A*COS(5+A*X) 

- V$=X, V1$=1 

3) DIV donne le résultat final : 
F=(A*COS(5+A*X)*X-SIN(5+A*X))/X72 


Aurel Rottman (289) 


Programme "LEXDIR" pour HP-75 (Liste des mots-clefs d'un fichier Lex) 


- Programme "LEXDIR" (HP-75 avec Rom 1/0 et MEMLEX) 
Auteur : Jean-Yves Hervé 
10 PRINTER IS “:P1" Q PWIDTH 80 
20 PRINT @ INPUT ''Nom du Lex ? !':N$ 
30 I=DIRECT(N$S)+2 Q A=PEEK(I)+PEEK(1+1)*256 
40 I=ADDR(N$) à L=PEEK(I)+PEEK(1+1)*256 
50 I=PEEK(1+4)+PEEK(1+5)*256+1-1 
60 PRINT N$;TAB(10);A;''octets!';TAB(25);"Id:":STR$(L); 
70 N$=tnn 
80 1=1+1 Q A=PEEK(I) @ IF A=255 THEN GOTO 20 
90 IF A<128 THEN N$=N$S&CHR$S(A) à GOTO 80 
100 N$S=NS&CHRS(A-128) à PRINT TAB(40);N$ @ GOTO 70 


He he he he he he he he ee ee ee ee ee ee ee eh ee ee eee eh RH AA RO A Re 


Programme "LEXCAT" pour HP-75 (désassemblage de l'en-tête d'un Lex) 


Programme "LEXCAT'" (HP-75 avec Rom 1/0 et MEMLEX) 
Auteur : Jean-Yves Hervé 

10 INTEGER N,J,L,1,K,V(25),Z,X,T,Y 

20 DIM N$[40] 

30 DELAY 0 à PRINTER IS “:P1" à PWIDTH 80 

40 INPUT "Nom du LEX ?!; N$ @ Z=ADDR(N$) 

50 PRINT TAB(17); "CATALOGUE: ":N$ @ I=DIRECT(N$) à PRINT 
60 GOSUB 150 à N$='"Adresse! à GOSUB 520 

70 GOSUB 150 à V=V-Z à N$="Longueur! à GOSUB 160 

80 V(1)=PEEK(I) à N$="Acces! à GOSUB 520 

90 V(1)=PEEK(I) à N$="Type: "&CHR$S(V(1)) à GOSUB 520 
100 FOR J=1 TO 4 @ V(J)=PEEKÇ(I1-1+J) à NEXT J 

110 K=4 à N$="Date de creation!" à GOSUB 520 

120 N$="" à FOR J=1 TO 8 Q V(J)=PEEK(I-1+J) 

130 N$S=NS&CHRS(V(J)) à NEXT J à K=8 à GOSUB 520 

140 PRINT TAB(28);"EN-TETE" @ I=Z à GOTO 170 

150 V(1)=PEEK(1) @ V(2)=PEEK(I+1) @ V=V(1)+V(2)*256+Z @ K=2 @ RETURN 
160 NS=NS& I: lIESTRS(V) à GOTO 520 

170 GOSUB 150 à N$="Lexid'' à GOSUB 520 

180 GOSUB 150 à N$="Runtab!" à X,V=V+2 à GOSUB 160 
190 GOSUB 150 à N$="Asciis" à T=V à GOSUB 160 

200 GOSUB 150 à N$="Partab!" à Y,V=V+2 à GOSUB 160 
210 GOSUB 150 à N$="Errmsg" à GOSUB 160 

220 GOSUB 150 à N$="Intcpt!! à GOSUB 160 

230 PRINT TAB(28);'"RUNTAB!! 

240 I=X @ X=(Y-X)/2 

250 FOR J=1 TO X 

260 GOSUB 150 à N$="#"E&STRS(J) à GOSUB 160 à NEXT J 
270 PRINT TAB(28);"PARTAB! à I=Y 

280 FOR J=1 TO X 

290 GOSUB 150 à N$="#!&STRS(J) @ GOSUB 160 à NEXT J 
300 GOSUB 150 à N$="Relmar! à GOSUB 520 
310 PRINT TAB(28);"ASCIIS" à I=T @ V=0 
320 K=1 à V=V+1 à NS="MAMESTRE(V)RM: 1 


330 V(K)=PEEK(I+K-1) @ IF V(K)=255 THEN N$="Byt"" @ GOSUB 520 à GOTO 360 
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340 
350 
360 
370 
380 
390 
400 
410 
411 
412 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 


IF VCK)<128 THEN NS=NS&CHRS(V(K)) à K=K+1 à GOTO 330 
NS=NSRCHRS(V(K)-128) à GOSUB 520 à GOTO 320 

PRINT TAB(28);"ERRMSG! à K=1 à V(K)=PEEK(I) à IF V(K)=255 THEN 390 
V=V(1)-1 à N$="Errn" à GOSUB 520 

K=1 à V=V+1 à NS=M#MRSTRE(V)EN M 

VCK)=PEEK(I+K-1) @ IF V(K)=255 THEN N$="Byt" à GOSUB 520 à GOTO 411 
IF V(K)<128 THEN NS=NS&CHRS(V(K)) à K=K+1 à GOTO 390 
NS=NSECHRS(V(K)-128) à GOSUB 520 à GOTO 380 

PRINT à K=1 à V(K)=PEEK(I) à N$="Version: "B&CHRS(MOD(V(K),128)) à GOSUB 520 
K=1 à V(K)=PEEK(1) à N$="Attribute" à GOSUB 520 à END 

IMAGE 5D,50,17X,32A 

IMAGE 5D,5D,4D,13X,32A 

IMAGE 5D,5D,4D,4D,9X, 32A 

IMAGE 5D,5D,3(4D),5X, 32A 

IMAGE 50,50,4(4D),X,32A 

PRINT USING 420 ; I-N,V(1),N$ à RETURN 

PRINT USING 430 ; I-N,V(1),VC2),N$ à RETURN 

PRINT USING 440 ; I-N,VC1),V(2),V(3),N$ @ RETURN 

PRINT USING 450 ; I-N,V(1),V(2),V(3),VC4),N$ à RETURN 

PRINT USING 460 ; I-N,VC1),VC2),VC3),V(4),V(5),N$ à RETURN 

N=K 9 I=I+N @ K=1 à NS=REPLS(CHRS(12)," M,NS,MM,1) à NS=REPLSCCHRS(10)," M,NS,Mn,1) 
IF N<é THEN 560 

GOSUB 510 à N=N-5 à N$="" 

FOR J=1 TO N à V(J)=V(J+5) à NEXT J à GOTO 530 

ON N GOTO 470,480,490,500,510 


HR He he ke He he He He ee he he he He eh ee he eh eh ee he eee ee ee ee ee ee eee ee de 


Programme "DIFF"! (choc en retour, dérivées symboliques) 


10 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 


160 
210 
220 
230 
240 
250 
260 
270 
280 
290 


DESTROY ALL 

DIM K$(91] 

INPUT 'f(x)=1,F1$;K$ 

KS=UPRCS(KS) à L=LEN(KS) 

DIM F$[L],F1$[MIN(91,10*L)] 

F$=K$ à CALL DIFF(F$,F1$) 

IF FLAG(O) THEN BEEP 4000,.01 à DISP "f'=1:F1$; à PAUSE à GOTO 40 
BEEP 1400,.05 

IF FLAG(1) THEN DISP 'Paranthesis Omitted' 
IF FLAG(2) THEN DISP 'Syntax in Formula! 
IF FLAG(3) THEN DISP ‘Formula too Complex! 
F1$=K$ à WAIT 3 à GOTO 40 


SUB MINPRIOCTS,P,0,L) 
INTEGER 1,K 
DIM K$(1] 
CFLAG 1 à L=LEN(T$) à P=0 à K=0 à 0=6 
FOR 1=1 TO L 
K$=T$[I,1] 
IF K$='(! THEN K=K+1 Q GOTO 340 
IF K$=')' THEN K=K-1 à GOTO 340 
IF K#O THEN 340 
IF K$='+! THEN O=1 à P=I à GOTO 340 
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300 
310 
320 
330 
340 
350 
360 


380 
410 
420 


430 
440 
450 
460 


470 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


600 
610 
620 
630 
640 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 


810 
820 
830 
840 
850 


IF K$='-! THEN 0=2 à P=I à GOTO 340 
IF K$=1*1 AND (0>2 OR P=1) THEN O=3 à P=I à GOTO 340 
IF K$=!/! AND (0>2 OR P=1) THEN O=4 à P=I à GOTO 340 
IF K$=!"1 AND (0=6 OR P=1) THEN O=5 à P=I 
NEXT I 
IF K#0 THEN CFLAG 0 à SFLAG 1 
END SUB 


SUB DIFF(F$,F1$) 
ON ERROR GOTO 1670 
INTEGER P,D,L,01,02 


DEF FNK$191](T$,0) 

CALL MINPRIO(T$,P,02,L) 

IF O2<0 OR T$[1,11=1-" THEN FNK$=!('&TS&')! ELSE FNKS=TS$ 
END DEF 


DEF FNNCT$) 
INTEGER I,L à DIM K$(1] 
CFLAG & @ I=1 @ L=LEN(T$) @ IF L>12 THEN FNN=0 à END 
IF T$[1,11=1-1 OR T$[1,1]='+' THEN 1=2 ELSE 1=1 
KS=T$[I,1] 
IF K$#!.! THEN 550 
IF FLAG(4) THEN FNN=0 @ END ELSE SFLAG 4 à GOTO 560 
IF 'O'>K$ OR K$>'91 THEN FNN=0 à END 
IF I<L THEN 1=1+1 Q GOTO 520 
FNN=1 

END DEF 

SFLAG O0 à CFLAG 2,3 


ISTART ! : 
CALL MINPRIO(FS$,P,0,L) 
IF NOT FLAG(O) THEN END 
IF P=L OR P=1 AND O>2 THEN CFLAG 0 à SFLAG 2 à END 
IF P>1 THEN 'ABLUV! 
IF O#G THEN F$=F$[2] à L=L-1 
1F F$#!X' THEN 700 
IF O=2 THEN F$='-X' @ F1$=1-1! ELSE F1$="1! 
END 
IF C'A'>F$ OR F$>!Z! OR L>1 AND F$#'P1') AND NOT FNNCFS$) THEN 740 
F1$="0! 
IF O=2 THEN F$='-'8FS$ 
END 
P=POS(F$, (1) 
IF P#1 THEN ‘SUCHEFKT' 
F$=F$[2,L-1] à L=L-2 
IF O#2 THEN "START! 
CALL DIFF(F$,F1$) 
IF F1$#'0! THEN F$='"-'&FNKS(FS,3) @ F1$=1-'&FANKS(F1$,3) 
END 


"SUCHEFKT! : 

IF P=0 OR P=L THEN CFLAG O @ SFLAG 2 à END 
DIM U$[IL-P],U1$[(L-P)*10],V$[(P-1] 
U$=FS$[P+1,L-1] @ CALL DIFF(U$,U1$) 
VS=F$(1,P-1] 
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860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1045 


1050 
1060 
1070 
1080 
1090 
1100 
1110 


1120 
1130 


1140 
1150 
1160 
1170 
1180 
1190 


1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


IF 'SIN'=V$ THEN 01=3 à F1$='COS('&U$&')! à GOTO ‘A! 

IF 'COS'=V$ THEN 01=4 à F1$='SIN('&U$&')! à GOTO ‘A! 

IF 'TAN'=V$ THEN 01=1 Q F1$='COS('&U$&')"2! à GOTO 'A' 

IF 'LOG'=V$ THEN 01=1 @ F1$=FNK$(U$,5) à GOTO 'A' 

IF 'EXP'=V$ THEN 01=3 à F1$='EXP('&U$&')! à GOTO ‘A! 

IF !SQR'=V$ THEN 01=1 à F1$='2*SQOR('&U$&')! à GOTO 'A! 

IF 'ASIN'=V$ THEN 01=1 à F1$='SQR(1-'&FNKS(US,5)&'"2)! à GOTO 'A' 
IF 'ACOS'=V$ THEN 01=2 @ F1$='SQR(1- '&FNKS(US,5)8'"2)! à GOTO 'A' 
IF 'ATAN'=V$ THEN 01=1 @ F1$=1(1+!'&FNK$(U$,5)&'"2)! à GOTO ‘A! 

IF ‘COT'=V$ THEN 01=2 à F1$='SIN('&U$&')}"2! à GOTO ‘A! 

IF 'SINH'=V$ THEN 01=3 Q F1$='COSH('&U$&')! à GOTO ‘A! 

IF 'COSH'=V$ THEN 01=3 à F1$='SINH('&U$&')! à GOTO ‘A! 

IF !TANH'=V$ THEN 01=1 Q F1$='COSH('&U$&!')"2! à GOTO 'A'! 

IF 'COTH'=V$ THEN 01=2 @ F1$='(SINH('&U$&')"2 à GOTO ‘A! 

IF 'ASINH'=V$ THEN 01=1 à F1$='SQR(1+'&FNK$S(U$,5)&'"2)! à GOTO ‘A! 
IF 'ACOSH'=V$ THEN 01=1 à F1$='SQR('&FNKS(US,5)&'"2-1)! à GOTO 'A' 
IF 'ATANH'=V$ THEN 01=1 Q F1$=1(1-'&FNK$(US,5)&'"2)! Q GOTO ‘A! 

IF *ACOT'=V$ THEN 01=2 à F1$=!(1+!&FNK$(US,5)&'"2)! Q GOTO 'A' 

IF TACOTH'=V$ THEN 01=1 à F1$=1(1+!&FNK$(US,5)&'"2)! @ GOTO 'A' 
PRINT ‘Unknoun function!,V$ à CFLAG 0 à END 


At: 

IF U1$='0! THEN F1$='0! à GOTO EF! 

IF 01<3 THEN 1110 

IF U1$#11! THEN F1$=FNK$(U1$,3)&'*18F1$ 

IF O1=4 THEN F1$=1-1&FNKS(F1$,3) 

GOTO ‘EF! 

IF O1=1 THEN F1$=FNK$(U1$,3)&'/'&FNKS(F1$,5) ELSE F1S=1-1&FNKS(U1$,3)8&'/'&FNKSCF1$,5) 


"EF': IF O=2 THEN F$='-1&F$ @ F1$=1-'RFNK$S(F1$,3) 
END 


"ABLUV! : 

DIM U$[P-1],V$[L-P],U1$[(P-1)*10],V1$[(L-P>*10] 
U$=F$(1,P-1] à CALL DIFF(U$,U1$) 

IF NOT FLAG(O) THEN END 

VS$=F$[P+1,L] @ CALL DIFF(V$,V1$) 

ON O GOTO ‘ADD','SUB!','MUL','DIV','POT! 


"ADD': 'SUB!: 

IF V1$='0! THEN 1280 

IF U1$='0! THEN 1260 

IF O=2 THEN F1$=U1$&'-'&FNK$(V1$,3) à END 

F1S=U1$&'+! à IF V1$(1,1]=1-1 THEN F1$=F1$8'('&V1$8&')! ELSE F1$=F1$8V1$ 
END 

IF O=2 THEN F1$='-1&FNK$(V1$,3) ELSE F1$=V1$ 


END 

IF U1$='0! THEN F1$=10! ELSE F1$=U01$ 
END 

"MUL': 'DIV': 


IF V1$='0' THEN 1420 

IF U1$='0! THEN 1390 

IF U1$=111 THEN F1$=V$ ELSE F1$=FNKS(U1$,3)&'*1RFNKS(VS,3) 
IF V1$=11! THEN 1370 
FAS=FISRCHRS(43+(0-3)*2)BFNKSCUS, 3381 * 1 BFNKSCVIS,3) 

GOTO 1430 

IF O=4 THEN F1$=F1$8'-'&FNKSCUS,3) ELSE F1$=F1881+"8US 


JPC 53 Page 40 


1380 
1390 
1400 
1410 
1420 
1430 
1440 


1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1585 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 


GOTO 1430 

IF O=4 THEN F1$=!-! @ US$=FNK$(U$,3) ELSE F1$=!! 

IF V1$=11! THEN F1$=F1$8U$ ELSE F1$=F1$8U$8&!*'&FNKS$(V1$,3) 

GOTO 1430 

IF U1$='0! THEN F1$='0! ELSE IF U1$='1! THEN F1$=V$ ELSE F1$=FNK$(U1$,3)8&'*'&FNKS(VS,3) 
IF O=4 AND F1$#'0! THEN F1$=FNK$(F1$,3)&!/'&FNKS(V$,6)&!"2! 

END 


1POT!': 

IF V1$='0 THEN 1580 

IF U1$#'0 THEN 1520 

IF U$='E! THEN F1$='E"'&FNKS(VS,6) à GOTO 1500 
FIS=FNKS(US, 5)8 1 '&FNKSCVS,6)&'*LN('BUSE! )' 

IF VA$#111 THEN F1$=F1$8'*1&FNKS(V1$,3) 

END 

FIS=FNKS(US,5)8&''RFAKSCVS,6)&1*(! 

1F VI$#111 THEN F1S=FISRFNKS(V1S,3)8 1%! 

FAS=F1$8' LNC'EUSE! )+! 

IF US=V$ THEN F1$=F1$&1" ELSE F1$=FIS&FNKSCVS,5) à IF U$#'1! THEN F1$=F1$8&'/'&FNKS(US,5) 
F1S=F1$81)! 

END 

IF U1$='0! THEN F1$='0' à END 

FIS=FNKS(VS, 3)8 1% BFNKS(US,5)&1 

1F U1$#111 THEN F1S=FNKSCVS,3)8'*1&FNKSCU1$,3)&'*!&FNKSÇCUS, 58171 
IF FAN(VS) THEN 1620 

F1S=F1$&! ('&VS&'-1)! à END 

IF V$=11! THEN F1$=11! à END 

IF V$='0! THEN F1$='0' à END 

V1$=STRS(VAL(VS)-1) 

IF V1$=111 THEN F1$=V$8'*'&FNKS(US,3) ELSE F1$=FIS&FNK$(V1$,3) 
END 

IF ERRN=24 OR ERRN=37 THEN SFLAG 3 ELSE BEEP 1200,.1 à DISP ‘Err L';ERRL;ERRM$ @ WAIT 3 
CFLAG 0 

END SUB 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu’est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 


Vous trouverz donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 
écrivez !"), ainsi que le Lex de programmation structurée de ce mois-ci. 


CHARLEX 


BASICLEX DBLIST XWORD 225090 PBLIST XWORD 225091 
RENUMREM XWORD 225092 


10 CALL MLEX à SUB MLEX à SFLAG -1 @ PURGE AH à INPUT "Nb. d'octets: !;:N @ LC OFF 

20 CREATE DATA AH,1,N-4 à A=HTD(ADDRS(''AH")) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$;A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS=ASRCS à A=A+37 9 N=N*2+37 à Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$[5*FLAG(5)+1] à POKE DTHS(A),C$ à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 
60 DISP DTH$(X)[3]; @ INPUT ": ",P$[1,MOD(N,16)]1;C$ à GOSUB 90 

70 POKE DTH$(A),C$ à POKE DTH$S(B),A$ à CFLAG -1 à END 

80 DISP DTH$(X)L3]; à INPUT “: 1,P$;C$ 

90 DISP DTH$(X)[31; à INPUT ! sm ",1---n:p$ 

100 M=S à FOR Z=1 TO LEN(C$) @ M=NUM(C$[Z])+M+1 à NEXT Z 

110 IF D$=DTH$(MOD(M,4096))13] THEN GOSUB 130 à S=M à RETURN 

120 DISP "Erreur de somme! à BEEP @ P$=C$ à POP à ON Q GOTO 30,40,50,60 

130 P$=l-----.scese " @ RETURN 
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CHARLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
00A: 
008: 
00C: 
000: 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
01A: 
018: 
01C: 
010: 
O1E: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
024: 
028: 
O2C: 
02D: 
O2E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 


0123456789ABCDEF 


34841425C4548502 
802E000000000000 
5E4001EFF0000000 
FE0000000800001F 
F31BF961400032BF 
38F14A11DB10AD23 
07D532BFB8FD7911 
11AD754D7A101743 
1101401CB815D0000 
71450375FF864834 
5655581008355654 
5810070507701724 
7700775070077517 
2077040708364545 
&4A30000449724000 
0808094A2C180814 
A464242008355455 
581000054C714000 
0C3142404C700832 
41414A70002078A0 
2F30000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
000000000000080€ 
1428080008080A2C 
180008040E340800 
08001E3018000000 
0000000000000000 
0000000000000000 
0000000000000000 
0201000000010200 
0000000201020000 
0001000100000002 
0102010000000000 
0000000000000000 
045E755142400101 
0101010000000000 
0000000000000000 
0000070507000000 
00000000083444C4 
4440007901112D70 
0500750509700000 
0D70000000384540 
4020014E322E3140 


624 octets 


sm 


35E 
68D 
9FD 
D57 
OEA 
484 
837 
BBA 
F25 
2A2 
5F9 
93F 
c92 
FEO 
333 
69c 
9F6 
D3C 
098 
3F0 
718 
A2B 
D38 
04B 
358 
668 
978 
C8B 
F9B 
2AB 
5BB 
8cB 
BDB 
F06 
270 
5B9 
8F3 
co3 
F13 
223 
539 
84E 
Bé2 
E76 
186 
4D2 
7E5 
AF5 
E18 
156 
4B6 
800 
B43 
E97 


036: 
037: 
038: 
039: 
03A: 
038: 
03C: 
03D: 
O3E: 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
048: 
049: 
04A: 
048: 
04C: 
04D: 
O4E : 
04F: 
050: 


BASICLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
004: 
008: 
00C: 
00D: 
00E: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 


084E794142400000 
00000000002E4559 
3200000000000000 
0000000000000026 
5556587008365556 
5810083645464830 
0832414248700024 
5655587008345655 
5810083446454830 
0C3042414C700024 
5556587008355654 
5810083546444830 
0C3142404C700025 
5455587008355455 
5810083544454830 
0C3140414C700875 
1414187000044972 
40000€3159454E30 
OC7A0F7949400024 
5554587000084A71 
40000C523A262D10 
0424587458400875 
1415187000094A70 
4000083544454830 
0C3140414C300€74 
5655545000054C71 
40000 


0123456789ABCDEF 


2414359434C45485 
802E000000000000 
A3E001EA5C526000 
F920000000000000 
02D200DF0008200D 
E1068B00DB4424C4 
943545A5B0524C49 
43545B5F2554E455 
D42554D4C51FF1E8 
c8c00000F7100000 
0000000000000008 
94E444S4E4458C1F 
FAE01361BB98F214 
8134769042572114 
1775408F5CC305A1 
867F1181313F9623 
38D20F208FDC6305 
DO7EE08FB394075C 
040179C04828D271 
3034B98F27A808FB 
EC208F5CC305AC42 
B34C98F27B608F51 
D208FD963062BF8F 
B39408F3E3200F61 
04F110CFCO005F700 
0003027C10452736 


1E7 
525 
83A 
B52 
EB1 
202 
543 
8A0 
BEF 
F44 
2A1 
5F0 
946 
CAO 
FEE 
350 
6A1 
A01 
D79 
0D5 
436 
78D 
ADD 
E21 
189 
4E0 
5D9 


1819 octets 


sm 


364 
693 
A18 
D49 
0c3 
454 
7D5 
B5A 
FOD 
269 
58B 
926 
CCF 
01F 
3AA 
721 
ABD 
E71 
1D0 
582 
937 
CDF 
097 
421 
7AB 
AF6 


01A: 
018: 
01C: 
01D: 
OÎE: 
01F: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
O2A: 
02B: 
O2C: 
02D: 
O2E: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036: 
037: 
038: 
039: 
03A: 
03B: 
03C: 
030: 
03E: 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
048: 
049: 
04A: 
04B: 
04C: 
04D: 
O4E: 
04F: 
050: 
051: 
052: 
053: 


0869018FDC630521 

7050038FE7A20400 
8D27130136156494 

EE0B461544136018 
DB2E20313F962000 
135FE1E8C2591220 
20018497D008FDC6 
305DA8598F6E8403 
1F096601311FAEA8 
D51D208DF3E20848 
8FCE2508F3E3201F 
D103F630FE450008 
F9575085866DF868 
D031C28F8EC20171 

8F511506EDF7A403 
545F402258F32450 
1718F957506BBF77 
203D94E44454E445 
022D8F324501758F 
22950609F8680031 

028D8EC208093850 
D4FFFCCOFF31F168 
108DA939043FFF38 
DFF31F01F078F214 
D1F5C8F2AF215DA1 

DADE614517433999 
91451DEEAF215D61 

ED55F1471E4E8F14 
514A8F504505606E 
DO8F3E3201F830FE 
3603F080008FD2F9 
04D18F36F9043113 
71F4E8F214565BF6 
25F1FAD8F27C5614 
11741417F4645914 
11C41478BE788D02 
9E01658F681F08FB 
Cé3157E1F5C8F214 
16F5F1618FD2F904 
721F178F2AFB1557 
17F15178F36F904C 
033B3006ACE1FFC8 
F23011550671F1B4 
E8F214613517E143 
F41CE8F147704D48 
FBFB6043417F1371 
35143C2199E144D7 
19AD142D817E1371 
35171D08FDFFFO4F 
0860A063C0674E1B 
&E8F213714419FC1 
524948961F178F21 
577AF7D231928F4C 
48046C1191F5D8F2 
1451F188F2153713 
5151717F35100004 
150517F174D2CE15 
D31371F0D8F21451 


E74 
1E4 
544 
8BB 
c38 
FC2 
350 
6EB 
A82 


1D1 
554 
8F5 
C8B 
029 
396 
735 
AB7 
E36 
197 
52C 
925 
CDé 
083 
44B 
7E6 
B92 
F49 
2cé 
672 
9FF 
D7A 
124 
407 
838 
BC9 
F76 
318 
6BF 
A62 
DFB 
1AD 
51F 
890 
c45 
FEO 
361 
6EC 
AAF 
E33 
1C4 
543 
8EE 
c82 
FFO 
33E 
éDB 
A63 
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054: B4E8F2142199E146 DF8 085: 14D311214B962801 A88 OB6: 2E610A3120AEA6A5 6C6 


055: 8BE72131D015B319 17E 086: 7154F1731331311C DEA 087: 017614B968D03130 A2D 
056: FD1468B6211378FD 523 087: 38F861B11B495F21 17B 0B8: AEA644OD2E610A31 DC9 
057: A6701354908D84A8 8A8 088: 371440713576A1AE 4F3 0B9: 4O0AEA62303150AEA 15F 
058: 01717CA4AE81198A C42 089: 84473180962451BF 869 OBA: 67203160AEA6C103 4DC 
059: A811BFE8F214AB6A 009 O8A: E8F214E111B62550 BEF 088: 170AEA61103180AE 865 
05A: 550AE0148D431509 380 08B: AE2112A6214C3120 F62 OBC: A6600AE00713503A BDC 
05B: 62521BEE8F215A03 716 O8C: 9658014851C31109 2C2 OBD: 17FF2C5FF1361087 F80 
05C: 0190621D215C0193 A75 08D: 658B14B310F966CA 661 OBE: C027E128F39B7085 314 
05D: FE615C019EE 15203 EO0E O8E: 301194F15C06E9F1 9ED OBF: 18528F357A14B11F 6A1 
05E: 0290611317096180 154 O8F: F4E8F21431318F13 D7B OC0: 976F211414577023 AOF 
05F: D21540D48F3E3202 4D9 090: 0015501711371F4E ODA OC1: 1E16BF11101307FA D99 
060: 0D1030D60400A050 835 091: 8F21451F4F8F2153 46E OC2: 1102D2E6F2108109 109 
061: 080606900062A01F B92 092: 4AC215541D3F1514 7F0 OC3: F2F2F210B7971436 499 
062: FEB8F2AE214D79031 F42 093: 7B006A0C8F534101 B6F OC4&: 1007F61495101756 7F4 
063: FF85F21471353FD2 2E7 094: BFC8F2152494C338 F14 OC5: 14F4D61321028F4E B7D 
064: D2D2D2D2D2D2D2AF 6B8 095: F2458114495F1421 290 OCé6: FF08606061191371 EEA 
065: AD231088F2B0B113 A44 096: 84146EAAF1D881D8 646 OC7: 2A1347D314720523 24B 
066: 71F495F214570D26 DC9 097: 548FF1E718D1CD71 9FD OC8: B142004491D68F4E 5D7 
067: B3014B310F966041 139 098: 14495F1421311731 D5F 0C9: FF0D015838705010 957 
068: F4F8F230115D05D1 4D1 099: 841468F401B11B49 ODC OCA: 37B211371128A232 CB5 
069: 1FEE8F215B030115 864 O9A: 5F2AF0142184146E 464 OCB: 1301838F78870D21 028 
06A: D09066065101F3F8 BE1 098: A81CD88F42A71146 805 OCC: 5F31108B6808CF07 3B8 
068: F2301155063001B3 F37 09C: 135159382281DD08 B75 OCD: F1FC65F2147D711A 765 
06C: F8F2152494860776 2B8 09D: 3240E4D2304C4CA1 F00 OCE: 135D215F31341180 AC5 
06D: 21BFE8F2AF014A19 66F 09E: 64146C2144D210B1 26D OCF: 611A135111D81378 E29 
O6E: SCAF21468FBBCE0C A48 09F: B5D8F2146190D142 5F8 0DO: BFD2135D015B311B 1C3 
06F: 6195F1448F5A2105 DC8 0A0: 8F7F3104E01B0D8F 9A5 0D1: 8BEC11108B281041 542 
070: 606FFB1AF85F1460 178 0A1: 2140016BE814A311 DOD 0D2: 36108D2E610954C6 8c1 
071: 61353F0202020202 4BA 0A2: F96600161D015A31 07F 0D3: 170159317514B1C5 C28 
072: 020202AFAD98F2B0 857 0A3: 6301AF210910A14B 3F5 OD4: 31CF962C1316E962 FBA 
073: B113713435020202 B9B 0A4: 310F96200171D214 754 0D5: 3111007D605E6066 31D 
074: 15C51F4E8F214713 F29 0A5: F133C21310617114 AAF OD6: 9100715D305E6061 682 
075: 5D015B8334000108B 28F 0A6: B8F3E320FE0403CA E62 0D7: 102399E70C010004 9DE 
076: E91F68BEFOF6BBES 66F OA7: 804C2C01C6E09B3F 209 0D8: 20173D214F133CA1 D58 
077: 01611611611361BF 9CA OA8: 06C6116FC11AD9A0 5AA 0D9: 3114B17190CCE6E5 OFO 
078: 85F21448FF6F4007 D63 OA9: ABBBO2CF90CF311F 979 ODA: F078518428F357A1 478 
079: D71F5F8F2143CA13 110 OAA: D911006E1117114B CES ODB: 8C8C7F14A161311F 814 
07A: 013515A737020202 457 OAB: 311E966FE17114B8 077 ODC: 96600D015A316303 B74 
078: 0215C71597DB1FF8 7FA OAC: F3E3203413006C20 3E0 ODD: 1FC65F2147D71CE1 F22 
07C: 5F2143145C0C0174 B6B OAD: 4472054F5036D104 747 ODE: 43D23113CA131017 288 
070: 1411B4E8F2142131 ED9 OAE: 632016C202691024 A96 ODF: 2108FEEB60441832 611 
07E: 1717042AE8318096 25C OAF: E20006FC0D2E610A E2F 0E0: 005C08F627705008 97A 
07F: 6606BFO011A8AAF01 5FA 0B0: 64C0D2E610910A66 1B5 OE1: D393901FD55F2147 DOF 
080: 9FE14AA6A1483170 994 0B1: BOD230210A6AA017 534 0E2: 13517E143F434412 075 
081: 96577137061FF85F D27 0B2: 114B8F504504A030 8A0 0E3: EÜBA6618F73B908F 421 
082: 2147135370202020 05E 083: 1902D0D2E6109678 C20 0E4: 78870147540D21B8 795 
083: 215D717519EE1520 3DA 0B4: 0D23021096B70D2E F9F 0E5: E7F215C303F A19 
084: 30215409029031D2 727 0B5: 61093110AEA6C60D 32E 


Op 
J 
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ENGLISH SUMMARY 


JPC 53 - APRIL 1988 


First, something very important : the swiss club PPC Lausanne has 
decided to stop its own Journal and to share JPC with us. So, JPC is 
now the only journal for French speaking users of HP handhelds. We 
hope this will be profitable for both club. 


An other important neus is the presence in France of David Lin, 
president of CMT, to present MC II and the other CMT products. 


The HP-28 column begins on page 6 by an article by Paul Courbis giving 
the address to be used on the new HP-285S for the CLOCK program (5ee 
JPC 46). 


The most important article about the HP-28C was written by Sébastien 
Lalande. He explains us with clear schematics how to increase- the 
calculator memory or speed, how to interface it with other computers 


for output as well as for input ! À lot of things have already been: 


made : nice achievement for a closed machine. 


The HP-75 column begins on page 12 with an article by Eric Gengoux 
about memory expansions and CMT Eproms. He indicates that rebates on 
Eprom burning are available from CMT for our members. Also, Vincent 
Delorme has made à lou cost, 532 Kb PMS. 


Then, the article by Jean-Yves Hervé explains how to get a list of 
keywords from a Lex file and how to decode a Lex file header using 
MEMLEX. | 


The HP-71 column begins on page 16 with the second part of the article 
on structured programming announced last month. This time, the Lex 
BASICLEX allows you to list a program with control structures, either 
standard or not, automatically indented. The result is very nice | 


Then Aurel Rottman concludes the first series of articles about 
symbolic derivation. He explains the algorithm used by Peter 


Ehrenberg and Volker Klann (Prisma article and JPC 44) and fixes some 
of the knoun bugs... 


Until next month, 


Happy Programming and JPC reading ! 


